Changeset 4026 for to-imperative/trunk/samples/Syntax/trap6.rf

Timestamp:

Nov 7, 2008, 7:24:02 PM (12 years ago)

Author:

orlov

Message:

• Tests for $trap...$with construction.

File:

• to-imperative/trunk/samples/Syntax/trap6.rf (modified) (1 diff)

to-imperative/trunk/samples/Syntax/trap6.rf

@@ -1 +1 @@
 $use StdIO;
 
+$func Main = e;
 Main =
   $trap $error X $with {
     s1, $trap $error Y $with \{};
-    e1 = <PrintLN "Catched: "e1>;
+    e1 = <PrintLn "Catched: "e1>;
   };