break, continue

break-continue.el

(dotimes (i 10)
  (catch 'continue
    (when (zerop (% i 2))
      (throw 'continue t))
    (message "%s" i)))

(let ((i 0))
  (catch 'break
    (while t
      (catch 'continue
        (when (zerop (% i 2))
          (throw 'continue t))
        (message "%s" i))
      (when (= i 10)
        (throw 'break t))
      (setq i (1+ i)))))

break-continue.scm

(import scheme)
(import (chicken base))
(import (srfi 1))

(let loop ((i 0))
  (when (< i 10)
    (call-with-current-continuation
     (lambda (continue)
       (if (zero? (modulo i 2))
         (continue #f)
         (print i))))
    (loop (add1 i))))

(call-with-current-continuation
 (lambda (break)
   (let loop ((i 0))
     (call-with-current-continuation
      (lambda (continue)
        (if (zero? (modulo i 2))
            (continue #f)
            (print i))))
     (when (= i 10)
       (break #f))
     (loop (add1 i)))))