langs a-z

Task/Exceptions/TXR/exceptions.txr

@@ -0,0 +1,22 @@
+@(defex gorilla ape primate)
+@(defex monkey primate)
+@(defex human primate)
+@(collect)
+@(try)
+@(cases)
+gorilla @name
+@(throw gorilla name)
+@(or)
+monkey @name
+@(throw monkey name)
+@(or)
+human @name
+@(throw human name)
+@(end)@#cases
+@(catch primate (name))
+@kind @name
+@(output)
+we have a primate @name of kind @kind
+@(end)@#output
+@(end)@#try
+@(end)@#collect