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/SMLNJ/src/cml/src/core-cml/queue.sml
ViewVC logotype

Diff of /sml/branches/SMLNJ/src/cml/src/core-cml/queue.sml

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

revision 7, Sun Jan 18 00:59:30 1998 UTC revision 8, Sun Jan 18 01:01:29 1998 UTC
# Line 42  Line 42 
42    
43    end = struct    end = struct
44    
45      structure Rep : sig      datatype queue = datatype RepTypes.queue
         datatype 'a queue = Q of {front : 'a list ref, rear : 'a list ref}  
       end = RepTypes  
     open Rep  
46    
47      fun reverse (x, [], rl) = (x, rl)      fun reverse (x, [], rl) = (x, rl)
48        | reverse (x, y :: rest, rl) = reverse (y, rest, x :: rl)        | reverse (x, y :: rest, rl) = reverse (y, rest, x :: rl)

Legend:
Removed from v.7  
changed lines
  Added in v.8

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