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

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

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

revision 1067, Fri Feb 15 17:08:17 2002 UTC revision 1068, Fri Feb 15 19:18:00 2002 UTC
# Line 18  Line 18 
18    
19    (* push a given envstate onto the stack, run the thunk, then pop the state *)    (* push a given envstate onto the stack, run the thunk, then pop the state *)
20    val locally : envstate * (unit -> 'a) -> 'a    val locally : envstate * (unit -> 'a) -> 'a
21    
22      val listBoundSymbols : unit -> Symbol.symbol list
23  end  end
24    
25  structure EnvRef : ENVREF = struct  structure EnvRef : ENVREF = struct
# Line 58  Line 60 
60          th ()          th ()
61          before stack := oldstack          before stack := oldstack
62      end      end
63    
64        fun listBoundSymbols () =
65            StaticEnv.symbols
66                (StaticEnv.atop (#static (#get (loc ()) ()),
67                                 #static (#get (base ()) ())))
68  end  end

Legend:
Removed from v.1067  
changed lines
  Added in v.1068

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