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

SCM Repository

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

Diff of /branches/lamont/src/compiler/translate/translate.sml

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

revision 2083, Thu Nov 8 18:42:05 2012 UTC revision 2084, Fri Nov 9 21:55:00 2012 UTC
# Line 222  Line 222 
222          | S.E_SphereQuery (args,ty) => let          | S.E_SphereQuery (args,ty) => let
223                  val args' = List.map (lookup env) args                  val args' = List.map (lookup env) args
224                  in                  in
225                     [IL.ASSGN(lhs,IL.OP(HighOps.SphereQuery (DstTy.StrandSeqTy(Atom.atom "unknown")),args'))]                     [IL.ASSGN(lhs,IL.OP(HighOps.SphereQuery (cvtTy ty),args'))]
226                  end                  end
227          | S.E_Selector(x,f) => let          | S.E_Selector(x,f) => let
228                  val x' = lookup env x                  val x' = lookup env x

Legend:
Removed from v.2083  
changed lines
  Added in v.2084

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