; File: loop.scm (define-macro LOOP (lambda (x . corp) `(do ()(#f) ,@corp) )) ; (do () (test) (body) )stops when test if true ;> (do () (#t) (display " loops for ever")) -> Nothing ;> (do () (#f) (display " loops for ever")) ->for ever loops for ever loops for ever loops for ev... (define (count n) ;(call/cc (let ((i 1)) (do () (#f) ; loops forever if does not go to exit (if (= i n) (exit #t) (begin (display i) (set! i (+ 1 i)))) ) ;) ))