;; -*- Mode:Irken -*-
(include "lib/core.scm")
(define (thing n)
(let/cc exit
(let loop ((i 0))
(printn i)
(cond ((= i n) (exit i));; (throw exit i))
((> i 10) 3141)
(else (loop (+ i 1))))
#t)))
(define (test)
(printn "before")
(thing 20)
(printn "after"))
(test)