A-M baby

Task/Exceptions/Factor/exceptions-1.factor

@@ -0,0 +1,4 @@
+"Install Linux, Problem Solved" throw
+
+TUPLE: velociraptor ;
+\ velociraptor new throw

Task/Exceptions/Factor/exceptions-2.factor

@@ -0,0 +1,2 @@
+ERROR: velociraptor ;
+velociraptor

Task/Exceptions/Factor/exceptions-3.factor

@@ -0,0 +1,12 @@
+! Preferred exception handling
+: try-foo
+    [ foo ] [ foo-failed ] recover ;
+
+: try-bar
+    [ bar ] [ bar-errored ] [ bar-always ] cleanup ;
+
+! Used rarely
+[ "Fail" throw ] try   ! throws a "Fail"
+[ "Fail" throw ] catch ! returns "Fail"
+[ "Hi" print ] catch   ! returns f (looks the same as throwing f; don't throw f)
+[ f throw ] catch      ! returns f, bad!  use recover or cleanup instead