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/cm/cm-boot.sml
ViewVC logotype

Diff of /sml/trunk/src/cm/cm-boot.sml

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

revision 367, Sat Jul 3 04:59:01 1999 UTC revision 368, Sat Jul 3 13:05:59 1999 UTC
# Line 136  Line 136 
136    
137        in        in
138            fun setAnchor (a, s) = PathConfig.set (pcmode, a, s)            fun setAnchor (a, s) = PathConfig.set (pcmode, a, s)
139              fun cancelAnchor a = PathConfig.cancel (pcmode, a)
140              fun resetPathConfig () = PathConfig.reset pcmode
141    
142            fun initPaths () = let            fun initPaths () = let
143                val p =                val p =
# Line 317  Line 319 
319                                        EnvConfig.getSet StdConfig.keep_going,                                        EnvConfig.getSet StdConfig.keep_going,
320                                     parse_caching =                                     parse_caching =
321                                        EnvConfig.getSet StdConfig.parse_caching,                                        EnvConfig.getSet StdConfig.parse_caching,
322                                     setAnchor = setAnchor })                                     setAnchor = setAnchor,
323                                       cancelAnchor = cancelAnchor,
324                                       resetPathConfig = resetPathConfig })
325    
326                    end                    end
327            end            end

Legend:
Removed from v.367  
changed lines
  Added in v.368

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