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/branches/primop-branch-2/src/compiler/Elaborator/elaborate/elabtop.sml
ViewVC logotype

Diff of /sml/branches/primop-branch-2/src/compiler/Elaborator/elaborate/elabtop.sml

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

revision 1984, Tue Jul 18 14:39:28 2006 UTC revision 1985, Tue Jul 18 19:46:35 2006 UTC
# Line 145  Line 145 
145            (* look up the structure variables *)            (* look up the structure variables *)
146            val strs = map (fn p => L.lookStr(env,SP.SPATH p,err)) paths            val strs = map (fn p => L.lookStr(env,SP.SPATH p,err)) paths
147    
148              val _ = print "elab\n"
149            (* open their environments to add datatypes, etc. *)            (* open their environments to add datatypes, etc. *)
150            fun h(M.ERRORstr, env) = env            fun h(M.ERRORstr, env) = env
151              | h(str, env) = MU.openStructure(env, str)              | h(str, env) = MU.openStructure(env, str)

Legend:
Removed from v.1984  
changed lines
  Added in v.1985

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