31 lines
721 B
Scheme
31 lines
721 B
Scheme
(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:
|