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

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

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

revision 1711, Tue Nov 23 05:13:59 2004 UTC revision 1712, Tue Nov 23 20:44:10 2004 UTC
# Line 666  Line 666 
666            end            end
667        end        end
668    in    in
669      fun init (bootdir, de, er, useStream, useFile, icm) = let      fun init (bootdir, de, er, useStream, useFile, errorwrap, icm) = let
670          fun procCmdLine () = let          fun procCmdLine () = let
671              val autoload = ignore o autoload              val autoload = errorwrap (ignore o autoload)
672              val make = ignore o make              val make = errorwrap (ignore o make)
673              fun p (f, mk, ("sml" | "sig" | "fun")) = useFile f              fun p (f, mk, ("sml" | "sig" | "fun")) = useFile f
674                | p (f, mk, "cm") = mk f                | p (f, mk, "cm") = mk f
675                | p (f, mk, e) = Say.say ["!* unable to process `", f,                | p (f, mk, e) = Say.say ["!* unable to process `", f,

Legend:
Removed from v.1711  
changed lines
  Added in v.1712

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