Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml/trunk/src/MLRISC/Tools/FakeSMLAst/ast-rewrite.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/Tools/FakeSMLAst/ast-rewrite.sml

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

revision 973, Sun Oct 28 00:44:05 2001 UTC revision 974, Sun Oct 28 03:29:04 2001 UTC
# Line 126  Line 126 
126                  | TUPLEpat ps => TUPLEpat(map pat ps)                  | TUPLEpat ps => TUPLEpat(map pat ps)
127                  | RECORDpat(lps,flex) =>                  | RECORDpat(lps,flex) =>
128                       RECORDpat(map (fn (l,p) => (l,pat p)) lps, flex)                       RECORDpat(map (fn (l,p) => (l,pat p)) lps, flex)
129                    | TYPEDpat(p,t) => TYPEDpat(pat p,ty t)
130                  | CONSpat(id,NONE) => p                  | CONSpat(id,NONE) => p
131                  | CONSpat(id,SOME p) => CONSpat(id,SOME(pat p))                  | CONSpat(id,SOME p) => CONSpat(id,SOME(pat p))
132                  | ORpat ps => ORpat(map pat ps)                  | ORpat ps => ORpat(map pat ps)

Legend:
Removed from v.973  
changed lines
  Added in v.974

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