diff options
Diffstat (limited to 'operators.c')
| -rw-r--r-- | operators.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/operators.c b/operators.c index 94f4f19..17ba76e 100644 --- a/operators.c +++ b/operators.c @@ -97,9 +97,9 @@ opPower(Datum *lefto, Datum *righto, Array *left, Array *right) throwerror(nil, EType); if(righto->tag == FunctionTag){ if(left) - code = L"next←⍺⍶⍵ ⋄ next⍹⍵:⍵ ⋄ ⍺ ⍶⍙⍹ next"; + code = L"next←⍺⍶⍵ ⋄ next⍹⍵:⍵ ⋄ ⍺∇next"; else - code = L"next←⍶⍵ ⋄ next⍹⍵:⍵ ⋄ ⍶⍙⍹ next"; + code = L"next←⍶⍵ ⋄ next⍹⍵:⍵ ⋄ ∇next"; }else if(righto->tag == ArrayTag){ if(righto->array->type != AtypeInt || righto->array->rank != 0 || righto->array->size != 1 || righto->array->intdata[0] < 0) throwerror(L"right operand to ⍣", EDomain); |