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

SCM Repository

[smlnj] View of /sml/branches/shao-private-devel/src/system/abcdef.sml
ViewVC logotype

View of /sml/branches/shao-private-devel/src/system/abcdef.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1097 - (download) (annotate)
Tue Feb 26 16:59:02 2002 UTC (19 years, 1 month ago)
File size: 385 byte(s)
This commit was manufactured by cvs2svn to create branch
'shao-private-devel'.
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