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

SCM Repository

[diderot] Diff of /branches/charisee/src/compiler/mid-to-low/ein-to-low.sml
ViewVC logotype

Diff of /branches/charisee/src/compiler/mid-to-low/ein-to-low.sml

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

revision 3262, Thu Sep 24 14:43:53 2015 UTC revision 3263, Mon Sep 28 18:01:40 2015 UTC
# Line 245  Line 245 
245          val index=Ein.index e          val index=Ein.index e
246          val info=(lhs,e,args)          val info=(lhs,e,args)
247          val all=(b,index,info)          val all=(b,index,info)
248            val _=(case index
249                of [3,3]=>print("\nchanged:" ^(P.printbody b ))
250                | [3,3,3] => print("\nchanged:" ^(P.printbody b ))
251                | _ => print" "
252                (*end case*))
253          fun gen body=(case (index,body)          fun gen body=(case (index,body)
254              of(* ([3,3],_) => runGeneralCase info              of(* ([3,3],_) => runGeneralCase info
255              | ([3,3,3],_) => runGeneralCase info              | ([3,3,3],_) => runGeneralCase info

Legend:
Removed from v.3262  
changed lines
  Added in v.3263

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