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
ViewVC logotype

Diff of /sml/trunk/src/system/abcdef.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 681, Mon Jul 3 07:13:03 2000 UTC revision 682, Tue Jul 4 06:25:51 2000 UTC
# Line 6  Line 6 
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                    handle e => (print "exn\n"; raise e)
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 = raise Foo          and f 0 = SMLofNJ.Internals.BTrace.trigger ()
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.681  
changed lines
  Added in v.682

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0