From 40af1deff9db7b86532db6957ebdbc0aaff38db1 Mon Sep 17 00:00:00 2001
From: Peter Mikkelsen <peter@pmikkelsen.com>
Date: Tue, 22 Feb 2022 21:25:36 +0000
Subject: Make errors more like dyalog:
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

* Use the same error numbers
* Rename ⎕THROW to ⎕SIGNAL
* Implement ⎕EN to inspect the last error code
* Implement ⎕EM to get a message from an error code
---
 eval.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'eval.c')

diff --git a/eval.c b/eval.c
index b629f90..3174cd4 100644
--- a/eval.c
+++ b/eval.c
@@ -93,7 +93,7 @@ retry:
 				maxlevel = level;
 		}
 		if(maxlevel == 0)
-			throwerror(L"No reduce rule", EParse);
+			throwerror(L"No reduce rule", ESyntax);
 		else{
 			Datum *new = fn(stmt->toks[offset], stmt->toks[offset+1]);
 			traceprint("handler fn done\n");
-- 
cgit v1.2.3