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 4097, Wed Jun 29 16:36:47 2016 UTC revision 4098, Wed Jun 29 16:36:57 2016 UTC
# Line 566  Line 566 
566            val spec = Env.target env            val spec = Env.target env
567            val genTrait = genSeqTrait env            val genTrait = genSeqTrait env
568            val genTyDecl = genTyDecl env            val genTyDecl = genTyDecl env
569            val dcls = List.foldl (doOp env) [] (CollectInfo.listOps info)            val opDcls = List.foldl (doOp env) [] (CollectInfo.listOps info)
570            val tys = CollectInfo.listTypes info            val tys = CollectInfo.listTypes info
571            val (dcls, fnDefs) = List.foldr genTyDecl (dcls, []) tys            val (tyDcls, fnDefs) = List.foldr genTyDecl ([], []) tys
572            val dcls = dcls @ fnDefs            val dcls = tyDcls @ fnDefs @ opDcls
573            val traitDcls = List.foldl genTrait [] tys            val traitDcls = List.foldl genTrait [] tys
574            in            in
575              if List.null dcls andalso List.null traitDcls              if List.null dcls andalso List.null traitDcls

Legend:
Removed from v.4097  
changed lines
  Added in v.4098

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