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/system/smlnj/internal/boot-env-fn.sml
ViewVC logotype

Diff of /sml/trunk/src/system/smlnj/internal/boot-env-fn.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 16  Line 16 
16                    val cminit : string * DynamicEnv.env * envrequest                    val cminit : string * DynamicEnv.env * envrequest
17                                 * (TextIO.instream -> unit)(* useStream *)                                 * (TextIO.instream -> unit)(* useStream *)
18                                 * (string -> unit) (* useFile *)                                 * (string -> unit) (* useFile *)
19                                   * ((string -> unit) -> (string -> unit))
20                                                      (* errorwrap *)
21                                 * ({ manageImport:                                 * ({ manageImport:
22                                        Ast.dec * EnvRef.envref -> unit,                                        Ast.dec * EnvRef.envref -> unit,
23                                      managePrint:                                      managePrint:
# Line 57  Line 59 
59                      mkDE (rest, DynE.bind (dynpid, obj, de))                      mkDE (rest, DynE.bind (dynpid, obj, de))
60                  end                  end
61              val de = mkDE (!U.pStruct, DynE.empty)              val de = mkDE (!U.pStruct, DynE.empty)
62                fun errorwrap u f x =
63                    Backend.Interact.withErrorHandling u
64                      { thunk = fn () => f x,
65                        flush = fn () => (),
66                        cont = fn e => raise e }
67          in          in
68              U.pStruct := U.NILrde;              U.pStruct := U.NILrde;
69              cminit (bootdir, de, er,              cminit (bootdir, de, er,
70                      Backend.Interact.useStream,                      Backend.Interact.useStream,
71                      Backend.Interact.useFile,                      errorwrap false Backend.Interact.useFile,
72                        errorwrap true,
73                      Backend.Interact.installCompManagers)                      Backend.Interact.installCompManagers)
74          end          end
75      end      end

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