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/compiler/TopLevel/interact/evalloop.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/TopLevel/interact/evalloop.sml

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

revision 1136, Tue Mar 12 19:44:02 2002 UTC revision 1137, Tue Mar 12 22:28:55 2002 UTC
# Line 63  Line 63 
63                      E.layerEnv (#get loc (), #get base ())                      E.layerEnv (#get loc (), #get base ())
64    
65                  val splitting = Control.LambdaSplitting.get ()                  val splitting = Control.LambdaSplitting.get ()
                 fun uniquepid () = raise Fail "uniquepid called from evalloop"  
66                  val {csegments, newstatenv, absyn, exportPid, exportLvars,                  val {csegments, newstatenv, absyn, exportPid, exportLvars,
67                       imports, inlineExp, ...} =                       imports, inlineExp, ...} =
68                      C.compile {source=source, ast=ast,                      C.compile {source=source, ast=ast,
# Line 72  Line 71 
71                                 compInfo=cinfo,                                 compInfo=cinfo,
72                                 checkErr=checkErrors,                                 checkErr=checkErrors,
73                                 splitting=splitting,                                 splitting=splitting,
74                                 uniquepid = uniquepid }                                 guid = () }
75                  (** returning absyn and exportLvars here is a bad idea,                  (** returning absyn and exportLvars here is a bad idea,
76                      they hold on things unnecessarily; this must be                      they hold on things unnecessarily; this must be
77                      fixed in the long run. (ZHONG)                      fixed in the long run. (ZHONG)

Legend:
Removed from v.1136  
changed lines
  Added in v.1137

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