From aef93ea3969feee92e68358395d5750ebe83f57d Mon Sep 17 00:00:00 2001
From: Joel Martin <github@martintribe.org>
Date: Sat, 29 Mar 2014 17:35:53 -0500
Subject: PS: error handling, throw, print excpetions without dying.

---
 ps/step3_env.ps | 16 ++++++++++------
 1 file changed, 10 insertions(+), 6 deletions(-)

(limited to 'ps/step3_env.ps')

diff --git a/ps/step3_env.ps b/ps/step3_env.ps
index c2e65cb..908ff43 100644
--- a/ps/step3_env.ps
+++ b/ps/step3_env.ps
@@ -41,7 +41,7 @@ end } def
         }{ /let* a0 eq { %if let*
             /a1 ast 1 get def
             /a2 ast 2 get def
-            /let_env env env_new def
+            /let_env env [ ] [ ] env_new def
             0 2 a1 length 1 sub { %for each pair
                 /idx exch def
                 let_env
@@ -63,14 +63,12 @@ end } def
 
 % print
 /PRINT {
-    /exp exch def
-    %(printing: ) print exp ==
-    exp pr_str
+    pr_str
 } def
 
 
 % repl
-/repl_env null env_new def
+/repl_env null [ ] [ ] env_new def
 
 /REP { READ repl_env EVAL PRINT } def
 /_ref { repl_env 3 1 roll env_set pop } def
@@ -91,7 +89,13 @@ end } def
     not { exit } if  % exit if EOF
 
     %(\ngot line: ) print dup print (\n) print flush
-    REP print (\n) print
+    { %try
+        REP print (\n) print
+    } stopped {
+        (Error: ) print
+        get_error_data pr_str print (\n) print
+        clear
+    } if
 } bind loop
 
 (\n) print  % final newline before exit for cleanliness
-- 
cgit v1.2.3