SCM Repository
[smlnj] / sml / branches / primop-branch-3 / system / abcdef.sml |
View of /sml/branches/primop-branch-3/system/abcdef.sml
Parent Directory | Revision Log
Revision 2221 -
(download)
(annotate)
Tue Nov 28 21:56:55 2006 UTC (14 years, 3 months ago) by blume
File size: 485 byte(s)
Tue Nov 28 21:56:55 2006 UTC (14 years, 3 months ago) by blume
File size: 485 byte(s)
create primop branch 3 as future target to merge changes from primop branch 2
structure X = struct exception Foo fun foo n : int = 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 = (* BackTrace.trigger () *) raise Fail "triggered" | f n = n * g (n - 1) and g n = a (n, 3) in f n; OS.Process.success end fun main _ = BackTrace.monitor (fn () => foo 3) end
root@smlnj-gforge.cs.uchicago.edu | ViewVC Help |
Powered by ViewVC 1.0.0 |