SCM Repository
[smlnj] / sml / releases / release-110.32 / src / system / abcdef.sml |
View of /sml/releases/release-110.32/src/system/abcdef.sml
Parent Directory | Revision Log
Revision 762 -
(download)
(annotate)
Sat Dec 23 05:37:37 2000 UTC (19 years, 10 months ago)
File size: 385 byte(s)
Sat Dec 23 05:37:37 2000 UTC (19 years, 10 months ago)
File size: 385 byte(s)
This commit was manufactured by cvs2svn to create tag 'release-110.32'.
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 e => (print "exn\n"; raise e) and e (x, 0) = f x | e (x, n) = e (x, n - 1) and f 0 = SMLofNJ.Internals.BTrace.trigger () | f n = n * g (n - 1) and g n = a (n, 3) in f n end end
root@smlnj-gforge.cs.uchicago.edu | ViewVC Help |
Powered by ViewVC 1.0.0 |