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

Diff of /sml/branches/SMLNJ/src/smlnj-lib/Util/int-binary-map.sml

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

revision 28, Thu Mar 12 01:05:57 1998 UTC revision 29, Thu Mar 12 01:05:59 1998 UTC
# Line 148  Line 148 
148            if key > x then T'(key,value,insert(left,x,v),right)            if key > x then T'(key,value,insert(left,x,v),right)
149            else if key < x then T'(key,value,left,insert(right,x,v))            else if key < x then T'(key,value,left,insert(right,x,v))
150            else T{key=x,value=v,left=left,right=right,cnt= #cnt set}            else T{key=x,value=v,left=left,right=right,cnt= #cnt set}
151        fun insert' ((k, x), m) = insert(m, k, x)
152    
153      fun find (set, x) = let      fun find (set, x) = let
154            fun mem E = NONE            fun mem E = NONE

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

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