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/compiler/Elaborator/print/ppabsyn.sml
ViewVC logotype

Diff of /sml/trunk/compiler/Elaborator/print/ppabsyn.sml

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

revision 4526, Fri Apr 13 18:32:56 2018 UTC revision 4527, Sat Apr 14 14:41:11 2018 UTC
# Line 238  Line 238 
238            | ppExp'(CONexp(con,_),_,_) = ppDcon ppstrm con            | ppExp'(CONexp(con,_),_,_) = ppDcon ppstrm con
239  (* QUESTION: do we want to tag word literals with a "0w" prefix *)  (* QUESTION: do we want to tag word literals with a "0w" prefix *)
240            | ppExp' (NUMexp num, _, _) = pps(IntConst.toString num)            | ppExp' (NUMexp num, _, _) = pps(IntConst.toString num)
241            | ppExp'(REALexp r,_,_) = pps r            | ppExp'(REALexp r,_,_) = pps(RealLit.toString r)
242            | ppExp'(STRINGexp s,_,_) = PU.pp_mlstr ppstrm s            | ppExp'(STRINGexp s,_,_) = PU.pp_mlstr ppstrm s
243            | ppExp'(CHARexp s,_,_) = (pps "#"; PU.pp_mlstr ppstrm s)            | ppExp'(CHARexp s,_,_) = (pps "#"; PU.pp_mlstr ppstrm s)
244            | ppExp'(r as RECORDexp fields,_,d) =            | ppExp'(r as RECORDexp fields,_,d) =

Legend:
Removed from v.4526  
changed lines
  Added in v.4527

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