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/trunk/src/compiler/FLINT/trans/translate.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/FLINT/trans/translate.sml

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

revision 101, Thu May 14 04:56:46 1998 UTC revision 102, Thu May 14 05:53:10 1998 UTC
# Line 1157  Line 1157 
1157    
1158  fun prGen (flag,printE) s e =  fun prGen (flag,printE) s e =
1159    if !flag then (say ("\n\n[After " ^ s ^ " ...]\n\n"); printE e) else ()    if !flag then (say ("\n\n[After " ^ s ^ " ...]\n\n"); printE e) else ()
1160  val _ = prGen(Control.CG.printLambda, PPLexp.printLexp) "Translate" plexp  val _ = prGen(Control.CG.printFlint, PPLexp.printLexp) "Translate" plexp
1161    
1162  (** normalizing the plambda expression into FLINT *)  (** normalizing the plambda expression into FLINT *)
1163  val flint = FlintNM.norm plexp  val flint = FlintNM.norm plexp

Legend:
Removed from v.101  
changed lines
  Added in v.102

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