Home My Page Projects Code Snippets Project Openings SML/NJ
 Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

# SCM Repository

[smlnj] Diff of /sml/trunk/src/system/abcdef.sml
 [smlnj] / sml / trunk / src / system / abcdef.sml # Diff of /sml/trunk/src/system/abcdef.sml

revision 675, Fri Jun 23 09:18:18 2000 UTC revision 678, Tue Jun 27 07:51:09 2000 UTC
# Line 1  Line 1
1  structure X = struct  structure X = struct
2        exception Foo
3      fun main n = let      fun main n = let
4          fun a (x, 0) = d x          fun a (x, 0) = d x
5            | a (x, n) = b (x, n - 1)            | a (x, n) = b (x, n - 1)
6          and b (x, n) = c (x, n)          and b (x, n) = c (x, n)
7          and c (x, n) = a (x, n)          and c (x, n) = a (x, n)
8          and d x = e (x, 3)          and d x = e (x, 3)
9                      handle Match => raise Bind
10          and e (x, 0) = f x          and e (x, 0) = f x
11            | e (x, n) = e (x, n - 1)            | e (x, n) = e (x, n - 1)
12          and f 0 = SMLofNJ.Internals.BTrace.trigger ()          and f 0 = raise Foo
13            | f n = n * g (n - 1)            | f n = n * g (n - 1)
14          and g n = a (n, 3)          and g n = a (n, 3)
15      in      in

Legend:
 Removed from v.675 changed lines Added in v.678