diff options
| author | Peter Mikkelsen <petermikkelsen10@gmail.com> | 2022-01-25 16:53:54 +0000 |
|---|---|---|
| committer | Peter Mikkelsen <petermikkelsen10@gmail.com> | 2022-01-25 16:53:54 +0000 |
| commit | 580b7dd6b3590134e7be96ebf758a956926130a9 (patch) | |
| tree | 76a74f056d644acbde77e1f4285d0c76d3652975 /operators.c | |
| parent | 3ad61539a385847d528d1efd20f1cfa5061fc071 (diff) | |
Actually pass ⍶ and ⍹ unchanged with ∆
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); |