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/branches/primop-branch-2/src/compiler/FLINT/trans/translate.sml
ViewVC logotype

Diff of /sml/branches/primop-branch-2/src/compiler/FLINT/trans/translate.sml

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

revision 121, Sat Jun 6 15:03:25 1998 UTC revision 122, Sat Jun 6 15:05:38 1998 UTC
# Line 1155  Line 1155 
1155    
1156  fun prGen (flag,printE) s e =  fun prGen (flag,printE) s e =
1157    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 ()
1158  val _ = prGen(Control.CG.printFlint, PPLexp.printLexp) "Translate" plexp  val _ = prGen(Control.FLINT.print, PPLexp.printLexp) "Translate" plexp
1159    
1160  (** normalizing the plambda expression into FLINT *)  (** normalizing the plambda expression into FLINT *)
1161  val flint = FlintNM.norm plexp  val flint = FlintNM.norm plexp

Legend:
Removed from v.121  
changed lines
  Added in v.122

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