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 228, Wed Aug 4 13:36:35 2010 UTC revision 229, Wed Aug 4 15:46:08 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) =>                    | S.E_Input(ty, argName, NONE) =>
77                        string(concat["input(\"", argName, "\")"])                        string(concat["input(\"", argName, "\")"])
78                    | S.E_Input(argName, SOME default) => (                    | S.E_Input(ty, argName, SOME default) => (
79                        string "inputWithDefault"; string "(";                        string "inputWithDefault"; string "(";
80                        string (concat["\"", argName, "\""]); string ","; sp();                        string (concat["\"", argName, "\""]); string ","; sp();
81                        var default; string ")")                        var default; string ")")

Legend:
Removed from v.228  
changed lines
  Added in v.229

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