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

SCM Repository

[diderot] Diff of /branches/vis15/src/compiler/cxx-util/gen-tys-and-ops.sml
ViewVC logotype

Diff of /branches/vis15/src/compiler/cxx-util/gen-tys-and-ops.sml

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

revision 3975, Wed Jun 15 17:22:47 2016 UTC revision 3976, Wed Jun 15 18:49:23 2016 UTC
# Line 138  Line 138 
138                CL.mkBinOp(                CL.mkBinOp(
139                  mkT(CL.mkVar "t"),                  mkT(CL.mkVar "t"),
140                  CL.#*,                  CL.#*,
141                  CL.mkBinOp(CL.mkVar "a", CL.#-, CL.mkVar "b")))))                  CL.mkBinOp(CL.mkVar "b", CL.#-, CL.mkVar "a")))))
   
142    
143      fun doOp env (rator, dcls) = let      fun doOp env (rator, dcls) = let
144            val realTy = Env.realTy env            val realTy = Env.realTy env

Legend:
Removed from v.3975  
changed lines
  Added in v.3976

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