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/branches/primop-branch-2/src/compiler/FLINT/trans/translate.sml
ViewVC logotype

Diff of /sml/branches/primop-branch-2/src/compiler/FLINT/trans/translate.sml

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

revision 1332, Sun May 18 03:21:16 2003 UTC revision 1344, Wed Aug 13 18:04:08 2003 UTC
# Line 350  Line 350 
350                               (typ := t; labels)                               (typ := t; labels)
351                    | find _ = (complain EM.COMPLAIN "unresolved flexible record"                    | find _ = (complain EM.COMPLAIN "unresolved flexible record"
352                                (fn ppstrm =>                                (fn ppstrm =>
353                                      (PP.add_newline ppstrm;                                      (PP.newline ppstrm;
354                                       PP.add_string ppstrm "pattern: ";                                       PP.string ppstrm "pattern: ";
355                                       PPAbsyn.ppPat env ppstrm                                       PPAbsyn.ppPat env ppstrm
356                                          (pat,!Control.Print.printDepth)));                                          (pat,!Control.Print.printDepth)));
357                                 raise DontBother)                                 raise DontBother)
# Line 1139  Line 1139 
1139    
1140          | g e =          | g e =
1141               EM.impossibleWithBody "untranslateable expression"               EM.impossibleWithBody "untranslateable expression"
1142                (fn ppstrm => (PP.add_string ppstrm " expression: ";                (fn ppstrm => (PP.string ppstrm " expression: ";
1143                              PPAbsyn.ppExp (env,NONE) ppstrm (e, !ppDepth)))                              PPAbsyn.ppExp (env,NONE) ppstrm (e, !ppDepth)))
1144    
1145     in g exp     in g exp

Legend:
Removed from v.1332  
changed lines
  Added in v.1344

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