(load "lib/primitives.rls")
(load "lib/primitive/foldl.rls")
(load "lib/util.rls")
(load "lib/parameters.rls")

(define (display+nl . rst)
  (apply display rst)
  (posix-write 1 "\n")
  (values))

(define current-value (make-parameter #f))

(let (cc)
  (let/cc exit
    (display+nl (current-value))
    (current-value 2)
    (display+nl (current-value))
    (call-with-parameters
     (lambda ()
       (display+nl (current-value))
       (let/cc k2
         ((let/cc k (set! cc k) k2))
         (exit))
       (current-value 7)
       (display+nl (current-value)))
     (list current-value 5))
    (display+nl (current-value))
    (cc (lambda () (display+nl (current-value))))))

; vim:set syntax=scheme sw=2 expandtab: