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/trunk/src/ml-burg/example1.burg
ViewVC logotype

Diff of /sml/trunk/src/ml-burg/example1.burg

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

sml/branches/SMLNJ/src/ml-burg/example1.burg revision 3, Sat Oct 4 23:33:46 1997 UTC sml/trunk/src/ml-burg/example1.burg revision 9, Sun Jan 18 01:01:29 1998 UTC
# Line 71  Line 71 
71    structure Burm = BurmGen (In)    structure Burm = BurmGen (In)
72    open In    open In
73    
74    fun say s = String.print s    fun say s = print s
75    
76    
77    local    local
78      val num = ref 1      val num = ref 1
79        fun inc iref = iref := (!iref + 1)
80    in    in
81      fun new s = (s^(makestring (!num)) before inc num)      fun new s = (s^(Int.toString (!num)) before inc num)
82    end    end
83    
84    
# Line 153  Line 154 
154          let          let
155            val con = new "con"            val con = new "con"
156          in          in
157            say (con^" <- CNSTI "^(makestring i)^"\n"); con            say (con^" <- CNSTI "^(Int.toString i)^"\n"); con
158          end          end
159      | walk (Burm.con_I0I, _) =      | walk (Burm.con_I0I, _) =
160          let          let

Legend:
Removed from v.3  
changed lines
  Added in v.9

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