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/cps/convert.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/FLINT/cps/convert.sml

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

revision 197, Sun Nov 22 01:25:23 1998 UTC revision 199, Wed Nov 25 18:30:38 1998 UTC
# Line 390  Line 390 
390                          val kont = makmc (fn vs => APP(VAR k, vs), res_ctys f)                          val kont = makmc (fn vs => APP(VAR k, vs), res_ctys f)
391                          val (vl,body) =                          val (vl,body) =
392                              case fk                              case fk
393                               of {isrec=SOME(_,F.LK_WHILE),...} => let                               of {isrec=SOME(_,F.LK_TAIL),...} => let
394                                   (* for tail recursive loops, we create a                                   (* for tail recursive loops, we create a
395                                    * local function that takes its continuation                                    * local function that takes its continuation
396                                    * from the environment *)                                    * from the environment *)

Legend:
Removed from v.197  
changed lines
  Added in v.199

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