Home My Page Projects Code Snippets Project Openings diderot
Summary Activity Tracker Tasks SCM

SCM Repository

[diderot] Diff of /branches/pure-cfg/src/compiler/codegen/codegen-fn.sml
ViewVC logotype

Diff of /branches/pure-cfg/src/compiler/codegen/codegen-fn.sml

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

revision 533, Mon Feb 14 22:56:45 2011 UTC revision 534, Tue Feb 15 03:40:00 2011 UTC
# Line 33  Line 33 
33    
34      fun lookup (env, x) = (case V.Map.find (env, x)      fun lookup (env, x) = (case V.Map.find (env, x)
35             of SOME x' => x'             of SOME x' => x'
36              | NONE => raise Fail "lookup"              | NONE => raise Fail(concat["lookup(_, ", V.name x, ")"])
37            (* end case *))            (* end case *))
38    
39      fun trExp (env, e) = (case e      fun trExp (env, e) = (case e

Legend:
Removed from v.533  
changed lines
  Added in v.534

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