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-pp.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/Tools/FakeSMLAst/ast-pp.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 342  Line 342 
342       | pat(TUPLEpat ps) = tuple(map pat ps)       | pat(TUPLEpat ps) = tuple(map pat ps)
343       | pat(RECORDpat(lps,flex)) =       | pat(RECORDpat(lps,flex)) =
344             record(map labpat lps @ (if flex then [! "..."] else []))             record(map labpat lps @ (if flex then [! "..."] else []))
345         | pat(TYPEDpat(p,t)) = paren(pat p ++ !! ":" ++ ty t)
346       | pat(CONSpat(id,NONE)) = ident id       | pat(CONSpat(id,NONE)) = ident id
347       | pat(CONSpat(IDENT([],"::"),SOME(TUPLEpat[x,y]))) =       | pat(CONSpat(IDENT([],"::"),SOME(TUPLEpat[x,y]))) =
348             paren(pat x ++ sp ++ !!"::" ++ sp ++ pat y)             paren(pat x ++ sp ++ !!"::" ++ sp ++ pat y)

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