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/smlnj-lib/Util/int-binary-set.sml
ViewVC logotype

Diff of /sml/trunk/src/smlnj-lib/Util/int-binary-set.sml

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

revision 3, Sat Oct 4 23:33:46 1997 UTC revision 29, Thu Mar 12 01:05:59 1998 UTC
# Line 153  Line 153 
153              | GREATER => T'(v,l,add(r,x))              | GREATER => T'(v,l,add(r,x))
154              | EQUAL => mkT(x,cnt,l,r)              | EQUAL => mkT(x,cnt,l,r)
155            (* end case *))            (* end case *))
156        fun add' (s, x) = add(x, s)
157    
158      fun concat3 (E,v,r) = add(r,v)      fun concat3 (E,v,r) = add(r,v)
159        | concat3 (l,v,E) = add(l,v)        | concat3 (l,v,E) = add(l,v)

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

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