t-do-loop.scm « vm « test-suite - software/guile - Unnamed repository; edit this file 'description' to name the repository.

summary refs log tree commit diff

path: root/test-suite/vm/t-do-loop.scm

blob: 6455bcdb2c35d1447fc697ba5ff5da1e503e5db9 (about) (plain)

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