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

SCM Repository

[diderot] Diff of /trunk/src/compiler/IL/gen/gen-ops.sml
ViewVC logotype

Diff of /trunk/src/compiler/IL/gen/gen-ops.sml

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

revision 331, Thu Aug 19 20:17:39 2010 UTC revision 332, Thu Aug 19 20:18:53 2010 UTC
# Line 231  Line 231 
231                    List.app (fn x => prl [",", x]) args;                    List.app (fn x => prl [",", x]) args;
232                    prl [")) = concat[\"", name, "<\", ", toS ty, " ", arg];                    prl [")) = concat[\"", name, "<\", ", toS ty, " ", arg];
233                    ListPair.app                    ListPair.app
234                      (fn (ty, x) => prl["\",\", ", toS ty, " ", arg])                      (fn (ty, x) => prl[", \",\", ", toS ty, " ", x])
235                        (tys, args);                        (tys, args);
236                    TextIO.output(outS, ", \">\"]\n")                    TextIO.output(outS, ", \">\"]\n")
237                  end                  end

Legend:
Removed from v.331  
changed lines
  Added in v.332

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