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

SCM Repository

[smlnj] Diff of /sml/branches/primop-branch-3/compiler/ElabData/basics/stamps.sml
ViewVC logotype

Diff of /sml/branches/primop-branch-3/compiler/ElabData/basics/stamps.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3343, Thu May 14 16:29:06 2009 UTC revision 3344, Fri May 15 12:52:07 2009 UTC
# Line 29  Line 29 
29    
30    type generator = int ref    type generator = int ref
31    fun newGenerator () = ref 0    fun newGenerator () = ref 0
32    fun fresh r = let val i = !r in r := i + 1;    fun fresh r = let val i = !r in r := i + 1; Fresh i end
                                   print ("Stamp "^Int.toString i^"\n");  
                                   Fresh i end  
33    val special = Special    val special = Special
34    val global = Global    val global = Global
35    

Legend:
Removed from v.3343  
changed lines
  Added in v.3344

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