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/gen-ein.sml
ViewVC logotype

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

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

revision 2602, Wed Apr 23 20:01:52 2014 UTC revision 2603, Thu Apr 24 03:58:37 2014 UTC
# Line 75  Line 75 
75    
76  (* general expressions*)  (* general expressions*)
77  fun generalfn(ap,(body,_,origargs, args))= let  fun generalfn(ap,(body,_,origargs, args))= let
     val a=print "\n in general fn"  
78    
    (* val mappB=createDic(0,ap,empty)*)  
79      val  jx= ref ap      val  jx= ref ap
80      fun getMapp _ = let      fun getMapp _ = let
81          val ref mappC=jx          val ref mappC=jx

Legend:
Removed from v.2602  
changed lines
  Added in v.2603

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