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

SCM Repository

[diderot] Diff of /trunk/src/compiler/translate/translate.sml
ViewVC logotype

Diff of /trunk/src/compiler/translate/translate.sml

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

revision 398, Thu Oct 14 20:08:18 2010 UTC revision 399, Thu Oct 14 20:08:35 2010 UTC
# Line 51  Line 51 
51                    TranslateBasis.translate (lhs, f, tyArgs, args')                    TranslateBasis.translate (lhs, f, tyArgs, args')
52                  end                  end
53              | S.E_Cons args => [(lhs, IL.CONS(List.map (lookup env) args))]              | S.E_Cons args => [(lhs, IL.CONS(List.map (lookup env) args))]
54              | S.E_Slice(x, indices) => raise Fail "FIXME: E_Slice"              | S.E_Slice(x, indices, ty) => raise Fail "FIXME: E_Slice"
55              | S.E_Input(_, name, NONE) => [(lhs, IL.OP(HighOps.Input name, []))]              | S.E_Input(_, name, NONE) => [(lhs, IL.OP(HighOps.Input name, []))]
56              | S.E_Input(_, name, SOME dflt) =>              | S.E_Input(_, name, SOME dflt) =>
57                  [(lhs, IL.OP(HighOps.InputWithDefault name, [lookup env dflt]))]                  [(lhs, IL.OP(HighOps.InputWithDefault name, [lookup env dflt]))]

Legend:
Removed from v.398  
changed lines
  Added in v.399

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