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

SCM Repository

[diderot] Diff of /branches/charisee_dev/src/compiler/ein/filter-ein.sml
ViewVC logotype

Diff of /branches/charisee_dev/src/compiler/ein/filter-ein.sml

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

revision 3603, Mon Jan 18 22:21:24 2016 UTC revision 3604, Tue Jan 19 01:24:00 2016 UTC
# Line 155  Line 155 
155      *filter Scalars outside Summation product      *filter Scalars outside Summation product
156      *)      *)
157      fun filterSca(c,e)= let      fun filterSca(c,e)= let
158          fun filter([],[],post)=(0,E.Sum(c,rewriteProd(post)))  fun filter([],[],post)=(print"did not change in filter sca";(0,E.Sum(c,rewriteProd(post))))
159          | filter([],pre,post)=(1,rewriteProdSum(pre,c,post))          | filter([],pre,post)=(print"changed in filter sca";(1,rewriteProdSum(pre,c,post)))
160          | filter(e1::es, pre,post)=(case e1          | filter(e1::es, pre,post)=(case e1
161              of E.Opn(E.Prod, p)             => filter(p@es, pre, post)              of E.Opn(E.Prod, p)             => filter(p@es, pre, post)
162              | E.Field(_,[])                 => filter(es, pre@[e1], post)              | E.Field(_,[])                 => filter(es, pre@[e1], post)

Legend:
Removed from v.3603  
changed lines
  Added in v.3604

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