SCM Repository
[diderot] Diff of /trunk/src/compiler/simplify/simple-pp.sml
Diff of /trunk/src/compiler/simplify/simple-pp.sml
Parent Directory
| 
Revision Log
| 
Patch
| 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.220 |
|
| changed lines |
| |
Added in v.221 |
|
|
