diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2014-11-01 10:05:49 -0700 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2014-11-01 10:05:49 -0700 |
commit | 57da58163fb94406f5de5b385447f97d80923b5b (patch) | |
tree | 55e1ca2c7942be913ee21509e1fab2c60fe3ed70 /mu.arc.t | |
parent | a8a1786bada82217c4289c236ea54c651b0eefce (diff) | |
download | mu-57da58163fb94406f5de5b385447f97d80923b5b.tar.gz |
203
Diffstat (limited to 'mu.arc.t')
-rw-r--r-- | mu.arc.t | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/mu.arc.t b/mu.arc.t index d123b4e1..48d2e858 100644 --- a/mu.arc.t +++ b/mu.arc.t @@ -681,6 +681,8 @@ (run 'main) ;? (prn memory*) ;? (prn completed-routines*) +(let last-routine (deq completed-routines*) + (aif rep.last-routine!error (prn "error - " it))) (if (or (~is memory*.3 34) (~is memory*.4 t)) (prn "F - 'maybe-coerce' copies value only if type tag matches")) ;? (quit) @@ -1024,8 +1026,6 @@ (if (~iso memory* (obj 1 0 2 34)) (prn "F - 'arg' passes by value")) -; how should errors be handled? will be unclear until we support concurrency and routine trees. - (reset) (new-trace "new-fn-reply-oarg") (add-fns @@ -1543,6 +1543,8 @@ (run 'main) ;? (prn memory*) ;? (prn (as cons completed-routines*)) +(let last-routine (deq completed-routines*) + (aif rep.last-routine!error (prn "error - " it))) (if (~is 34 memory*.3) (prn "F - indirect 'get' works in the presence of default-scope")) ;? (quit) @@ -1560,6 +1562,8 @@ (run 'main) ;? (prn memory*) ;? (prn (as cons completed-routines*)) +(let last-routine (deq completed-routines*) + (aif rep.last-routine!error (prn "error - " it))) (if (~is 34 memory*.3) (prn "F - indirect 'index' works in the presence of default-scope")) ;? (quit) |