--- sml/trunk/src/system/abcdef.sml 2000/06/23 09:18:18 675
+++ sml/trunk/src/system/abcdef.sml 2000/06/27 07:51:09 678
@@ -1,13 +1,15 @@
structure X = struct
+ exception Foo
fun main n = let
fun a (x, 0) = d x
| a (x, n) = b (x, n - 1)
and b (x, n) = c (x, n)
and c (x, n) = a (x, n)
and d x = e (x, 3)
+ handle Match => raise Bind
and e (x, 0) = f x
| e (x, n) = e (x, n - 1)
- and f 0 = SMLofNJ.Internals.BTrace.trigger ()
+ and f 0 = raise Foo
| f n = n * g (n - 1)
and g n = a (n, 3)
in