Implemented unless, when and dotimes using built-in macros.

[bpt/guile.git] / testsuite / t-do-loop.scm

(let ((n+ 0))
  (do ((n- 5  (1- n-))
       (n+ n+ (1+ n+)))
      ((= n- 0))
    (format #f "n- = ~a~%" n-)))