Re: loop translations (was: Re: language translator help)

[Thien-Thi Nguyen]

   From: "John W. Eaton" <address@hidden>
   Date: Sat, 27 Apr 2002 19:53:33 -0500

     for i = 1:3
       disp (i);
       if (i == 2)
         break;
       endif
     endfor

you could use `do' for this:

(do ((keep-going? #t)
     (i 1 (1+ i)))
    ((or (not keep-going?) (= i 3)))    ; maybe (> i 3) ?
  (format #t "~A\n" i)
  (and (= i 2) (set! keep-going? #f)))

i suppose this would offend some purists, but it works...

thi