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

SCM Repository

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

Diff of /trunk/src/compiler/simplify/simple-pp.sml

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

revision 197, Mon Aug 2 20:51:47 2010 UTC revision 221, Tue Aug 3 20:13:55 2010 UTC
# Line 73  Line 73 
73                        var f; ppTyArgs (ppStrm, mvs); sp(); ppArgs (ppStrm, args))                        var f; ppTyArgs (ppStrm, mvs); sp(); ppArgs (ppStrm, args))
74                    | S.E_Cons es => (                    | S.E_Cons es => (
75                        ppList ppVar ("[", ",", "]") (ppStrm, es))                        ppList ppVar ("[", ",", "]") (ppStrm, es))
76                      | S.E_Input(argName, NONE) =>
77                          string(concat["input(\"", argName, "\")"])
78                      | S.E_Input(argName, SOME default) => (
79                          string "inputWithDefault"; string "(";
80                          string (concat["\"", argName, "\""]); string ","; sp();
81                          var default; string ")")
82                      | S.E_Field fld => (
83                          string "field"; sp(); string(FieldDef.toString fld))
84                  (* end case *))                  (* end case *))
85            in            in
86              pp e              pp e

Legend:
Removed from v.197  
changed lines
  Added in v.221

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