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 902, Wed Aug 15 21:17:05 2001 UTC revision 905, Thu Aug 23 21:53:02 2001 UTC
# Line 13  Line 13 
13    
14  functor BootEnvF (datatype envrequest = AUTOLOAD | BARE  functor BootEnvF (datatype envrequest = AUTOLOAD | BARE
15                    val architecture: string                    val architecture: string
16                    val cminit : string * DynamicEnv.env * envrequest ->                    val cminit : string * DynamicEnv.env * envrequest
17                                 (unit -> unit) option                                 * (TextIO.instream -> unit)(* useStream *)
18                                   * (string -> unit) (* useFile *)
19                                   * ((Ast.dec * EnvRef.envref -> unit) -> unit)
20                                   -> (unit -> unit) option
21                    val cmbmake: string * bool -> unit) :> BOOTENV = struct                    val cmbmake: string * bool -> unit) :> BOOTENV = struct
22    
23      exception BootFailure      exception BootFailure
# Line 51  Line 54 
54              val de = mkDE (!U.pStruct, DynE.empty)              val de = mkDE (!U.pStruct, DynE.empty)
55          in          in
56              U.pStruct := U.NILrde;              U.pStruct := U.NILrde;
57              cminit (bootdir, de, er)              cminit (bootdir, de, er,
58                        Backend.Interact.useStream,
59                        Backend.Interact.useFile,
60                        Backend.Interact.installCompManager)
61          end          end
62      end      end
63    

Legend:
Removed from v.902  
changed lines
  Added in v.905

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