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

SCM Repository

[diderot] Diff of /branches/charisee_dev/src/compiler/high-to-mid/ProbeEin.sml
ViewVC logotype

Diff of /branches/charisee_dev/src/compiler/high-to-mid/ProbeEin.sml

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

revision 3414, Thu Nov 12 17:07:22 2015 UTC revision 3415, Thu Nov 12 20:59:23 2015 UTC
# Line 493  Line 493 
493          val _=  toStrField b*)          val _=  toStrField b*)
494    
495          in  (case var          in  (case var
496          of NONE=> (toStrField b;(rewriteBody(Ein.body ein),fieldset,matchField(Ein.body ein),0))          of NONE=> ((rewriteBody(Ein.body ein),fieldset,matchField(Ein.body ein),0))
497              | SOME v=> (("\n mapp_replacing"^(P.printerE ein)^":");( [(y,DstIL.VAR v)],fieldset, matchField(Ein.body ein),1))              | SOME v=> (("\n mapp_replacing"^(P.printerE ein)^":");( [(y,DstIL.VAR v)],fieldset, matchField(Ein.body ein),1))
498              (*end case*))              (*end case*))
499          end          end

Legend:
Removed from v.3414  
changed lines
  Added in v.3415

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