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/main/autoload.sml
ViewVC logotype

Diff of /sml/trunk/src/cm/main/autoload.sml

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

revision 376, Wed Jul 7 04:25:11 1999 UTC revision 377, Wed Jul 7 06:55:18 1999 UTC
# Line 158  Line 158 
158                             (#set ter (BE.concatEnv (e, te));                             (#set ter (BE.concatEnv (e, te));
159                              pending := noloadmap;                              pending := noloadmap;
160                              Say.say ["[autoloading done]\n"])                              Say.say ["[autoloading done]\n"])
161                       | NONE => Say.say ["[autoloading failed]\n"]) })                       | NONE => raise Fail "unable to load module(s)") }
162                  handle Fail msg =>
163                      Say.say ["[autoloading failed: ", msg, "]\n"])
164      end      end
165    
166      fun getPending () = SymbolMap.map #1 (!pending)      fun getPending () = SymbolMap.map #1 (!pending)

Legend:
Removed from v.376  
changed lines
  Added in v.377

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