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

SCM Repository

[smlnj] Annotation of /sml/trunk/src/cm/Tests/gensym.sml
ViewVC logotype

Annotation of /sml/trunk/src/cm/Tests/gensym.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 651 - (view) (download)

1 : blume 424 structure GenSym = struct
2 :     local
3 :     val c = ref 0
4 :     in
5 :     fun gensym () = let
6 :     val n = !c
7 :     in
8 :     c := n + 1;
9 :     n
10 :     end
11 :     end
12 :     end

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