Data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · cb5bb5e222
commit cb5bb5e222
parent 7387c8f97b
199093 changed files with 3378972 additions and 0 deletions
--- a/Task/Exceptions-Catch-an-exception-thrown-in-a-nested-call/PicoLisp/exceptions-catch-an-exception-thrown-in-a-nested-call.l
+++ b/Task/Exceptions-Catch-an-exception-thrown-in-a-nested-call/PicoLisp/exceptions-catch-an-exception-thrown-in-a-nested-call.l
@ -0,0 +1,13 @@
+(de foo ()
+   (for Tag '(U0 U1)
+      (catch 'U0
+         (bar Tag) ) ) )
+
+(de bar (Tag)
+   (baz Tag) )
+
+(de baz (Tag)
+   (throw Tag) )
+
+(mapc trace '(foo bar baz))
+(foo)