# SCM Repository

# View of /sml/trunk/src/system/abcdef.sml

Parent Directory | Revision Log

Revision

File size: 397 byte(s)

**1645**- (**download**) (**annotate**)*Mon Oct 11 21:37:17 2004 UTC*(15 years ago) by*mblume*File size: 397 byte(s)

better region info propagation in elaborator

structure X = struct exception Foo fun main 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 = 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 |