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/compile/link.sml
ViewVC logotype

Diff of /sml/trunk/src/cm/compile/link.sml

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

revision 403, Tue Aug 31 07:44:29 1999 UTC revision 404, Wed Sep 1 07:03:22 1999 UTC
# Line 76  Line 76 
76              raise exn              raise exn
77          end          end
78    
79          fun execute (bfc, de) = let          fun execute (bfc, de) =
             fun exec () = E.dynamicPart (BF.exec (bfc, de))  
         in  
80              case sysval (BF.exportPidOf bfc) of              case sysval (BF.exportPidOf bfc) of
81                  NONE => exec ()                  NONE => BF.exec (bfc, de)
82                | SOME de' => de'                | SOME de' => de'
         end  
83    
84          fun memoize thunk = let          fun memoize thunk = let
85              val r = ref (fn _ => raise Fail "Link:memoize")              val r = ref (fn _ => raise Fail "Link:memoize")

Legend:
Removed from v.403  
changed lines
  Added in v.404

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