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 369, Sun Jul 4 12:55:20 1999 UTC revision 370, Mon Jul 5 08:59:13 1999 UTC
# Line 16  Line 16 
16  end = struct  end = struct
17    
18    structure Recomp = RecompFn (structure PS = PS)    structure Recomp = RecompFn (structure PS = PS)
19    structure RecompTraversal = CompileGenericFn (structure CT = Recomp)    structure RecompTraversal = CompileGenericFn (structure CT = Recomp
20                                                    val thinTraversal = true)
21    
22    structure Exec = struct    structure Exec = struct
23      structure E = GenericVC.Environment      structure E = GenericVC.Environment
# Line 108  Line 109 
109            | _ => NONE            | _ => NONE
110    
111      val nestedTraversalReset = RecompTraversal.reset      val nestedTraversalReset = RecompTraversal.reset
112    
113        fun withAccessTrap r e = e
114    end    end
115  end  end

Legend:
Removed from v.369  
changed lines
  Added in v.370

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