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

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

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

revision 298, Thu May 27 09:42:28 1999 UTC revision 299, Thu May 27 13:53:27 1999 UTC
# Line 32  Line 32 
32      val bfilter = filter      val bfilter = filter
33      val bnofilter = nofilter      val bnofilter = nofilter
34    
35      fun primitive c p =      fun primitive (gp: GeneralParams.info) p =
36          { dyn = fn () => E.dynamicPart (Primitive.env c p),          { dyn = fn () => E.dynamicPart (Primitive.env
37                                            (#primconf (#param gp)) p),
38            dts = DTS.ancient }            dts = DTS.ancient }
39    
40        fun pervasive (gp: GeneralParams.info) =
41            { dyn = fn () => E.dynamicPart (#pervasive (#param gp)),
42              dts = DTS.ancient }
43    
44        val bpervasive = pervasive
45    
46      fun thunkify { dyn, dts } = { dyn = fn () => dyn, dts = dts }      fun thunkify { dyn, dts } = { dyn = fn () => dyn, dts = dts }
47    
48      fun execute (bfc, { dyn = mkdyn, dts }, share, error, descr, memo) = let      fun execute (bfc, { dyn = mkdyn, dts }, share, error, descr, memo) = let

Legend:
Removed from v.298  
changed lines
  Added in v.299

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