(define (test)
  (call/cc
   (lambda (return)
     (define i 0)
     (do ((i 0 (+ i 1)))
         ((>= i 100000))
       (when (= i 4)
         (return))
       (display i)
       (newline)))))

(define-syntax with-cc
  (syntax-rules ()
    ((_ cc body ...)
     (call/cc (cc) body ...))))

(define (test)
  (with-cc return
    (define i 0)
    (do ((i 0 (+ i 1)))
        ((>= i 100000))
      (when (= i 4)
        (return))
      (display i)
      (newline))))

(define-syntax define/cc
  (syntax-rules ()
    ((_ cc (fun arg ...) body ...)
     (define (fun arg ...)
       (call/cc (lambda (cc) body ...))))) ; !!! в предыдущем посте забыл лямбду

(define/cc return (test)
  (do ((i 0 (+ i 1)))
      ((>= i 100000))
    (when (= i 4)
      (return))
    (display i)
    (newline)))