[bpt/guile.git] / test-suite / vm / t-do-loop.scm

(let ((n+ 0))
  (do ((n- 5  (1- n-))
       (n+ n+ (1+ n+)))
      ((= n- 0))
    (format #f "n- = ~a~%" n-)))
Commit	Line	Data
0b5f0e49 LC	1	(let ((n+ 0))
	2	(do ((n- 5 (1- n-))
	3	(n+ n+ (1+ n+)))
	4	((= n- 0))
b6368dbb	5	(format #f "n- = ~a~%" n-)))