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 /smlnj-lib/branches/rt-transition/Util/splay-map-fn.sml
ViewVC logotype

Diff of /smlnj-lib/branches/rt-transition/Util/splay-map-fn.sml

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

revision 411, Fri Sep 3 00:25:03 1999 UTC revision 498, Tue Dec 7 15:44:50 1999 UTC
# Line 30  Line 30 
30        | first (MAP{root, ...}) = let        | first (MAP{root, ...}) = let
31            fun f (SplayObj{value=(_, value), left=SplayNil, ...}) = SOME value            fun f (SplayObj{value=(_, value), left=SplayNil, ...}) = SOME value
32              | f (SplayObj{left, ...}) = f left              | f (SplayObj{left, ...}) = f left
33                | f SplayNil = raise Fail "SplayMapFn.first"
34            in            in
35              f (!root)              f (!root)
36            end            end
# Line 39  Line 40 
40        | firsti (MAP{root, ...}) = let        | firsti (MAP{root, ...}) = let
41            fun f (SplayObj{value=(key, value), left=SplayNil, ...}) = SOME(key, value)            fun f (SplayObj{value=(key, value), left=SplayNil, ...}) = SOME(key, value)
42              | f (SplayObj{left, ...}) = f left              | f (SplayObj{left, ...}) = f left
43                | f SplayNil = raise Fail "SplayMapFn.firsti"
44            in            in
45              f (!root)              f (!root)
46            end            end

Legend:
Removed from v.411  
changed lines
  Added in v.498

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