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/Controls/registry.sml
ViewVC logotype

Diff of /sml/trunk/src/smlnj-lib/Controls/registry.sml

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

revision 1196, Fri May 17 18:02:04 2002 UTC revision 1197, Fri May 17 18:04:19 2002 UTC
# Line 94  Line 94 
94                   of SOME value => Controls.set(ctl, value)                   of SOME value => Controls.set(ctl, value)
95                    | NONE => ()                    | NONE => ()
96                  (* end case *))                  (* end case *))
97              | initCtl _ => ()              | initCtl _ = ()
98            fun initSubreg (SubReg{reg, ...}) = init reg            fun initSubreg (SubReg{reg, ...}) = init reg
99            in            in
100              CSet.app initCtl ctls;              CSet.app initCtl ctls;

Legend:
Removed from v.1196  
changed lines
  Added in v.1197

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