diff options
Diffstat (limited to 'operators.c')
| -rw-r--r-- | operators.c | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/operators.c b/operators.c index 7a7f12d..7e2520c 100644 --- a/operators.c +++ b/operators.c @@ -86,7 +86,7 @@ Array * opKey(Datum *lefto, Array *left, Array *right) { if(lefto->tag != FunctionTag) - throwerror(nil, EType); + throwerror(nil, ESyntax); if(left) return rundfn(L"↑⍵∘(⍶{⍵⍶⍺⌷⍨⊂⍸⍹≡¨⍵}⍺)¨⊂¨∪⍺", lefto, nil, left, right); else @@ -97,7 +97,7 @@ Array * opSpawn(Datum *lefto, Array *left, Array *right) { if(lefto->tag != FunctionTag) - throwerror(L"Can only spawn functions", EType); + throwerror(L"Can only spawn functions", ESyntax); int id = spawnthread(lefto->func, left, right); return mkscalarint(id); } @@ -108,7 +108,7 @@ opOuterProduct(Datum *lefto, Array *left, Array *right) if(left == nil) throwerror(L"f⌾ expected a left argument", ESyntax); if(lefto->tag != FunctionTag) - throwerror(nil, EType); + throwerror(nil, ESyntax); int i; int rank = GetRank(left) + GetRank(right); @@ -156,9 +156,9 @@ Array * opReceive(Datum *lefto, Array *left, Array *right) { if(lefto->tag != FunctionTag) - throwerror(nil, EType); + throwerror(nil, ESyntax); if(GetType(right) != AtypeInt) - throwerror(nil, EType); + throwerror(nil, EDomain); if(GetSize(right) != 1) throwerror(nil, ELength); USED(left); @@ -171,7 +171,7 @@ opPower(Datum *lefto, Datum *righto, Array *left, Array *right) { Rune *code = nil; if(lefto->tag != FunctionTag) - throwerror(nil, EType); + throwerror(nil, ESyntax); if(righto->tag == FunctionTag){ if(left) code = L"next←⍺⍶⍵ ⋄ next⍹⍵:⍵ ⋄ ⍺∇next"; @@ -206,7 +206,7 @@ opInnerProduct(Datum *lefto, Datum *righto, Array *left, Array *right) if(left == nil) throwerror(L"f.g expected a left argument", ESyntax); if(lefto->tag != FunctionTag || righto->tag != FunctionTag) - throwerror(nil, EType); + throwerror(nil, ESyntax); if(GetRank(left) > 0 && GetRank(right) > 0 && left->shape[GetRank(left)-1] != right->shape[0]) throwerror(nil, ELength); @@ -251,7 +251,7 @@ opAtop(Datum *lefto, Datum *righto, Array *left, Array *right) if(GetRank(ranks) > 1) throwerror(nil, ERank); if(GetType(ranks) != AtypeInt) - throwerror(nil, EType); + throwerror(nil, EDomain); if(GetSize(ranks) < 1 || GetSize(ranks) > 3) throwerror(nil, ELength); int p,q,r; |