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

SCM Repository

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

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

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

revision 1301, Thu Jun 9 23:58:40 2011 UTC revision 1640, Wed Nov 16 02:19:51 2011 UTC
# Line 153  Line 153 
153                  end                  end
154              | AST.S_Die => S.S_Die :: stms              | AST.S_Die => S.S_Die :: stms
155              | AST.S_Stabilize => S.S_Stabilize :: stms              | AST.S_Stabilize => S.S_Stabilize :: stms
156                | AST.S_Print args => let
157                    val (stms, xs) = simplifyExpsToVars (args, stms)
158                    in
159                      S.S_Print xs :: stms
160                    end
161            (* end case *))            (* end case *))
162    
163      and simplifyExp (exp, stms) = (      and simplifyExp (exp, stms) = (

Legend:
Removed from v.1301  
changed lines
  Added in v.1640

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