16 lines
274 B
Plaintext
16 lines
274 B
Plaintext
((lambda ((:k1 (+ 1 2 3)))
|
|
(assert (= k1 6))))
|
|
|
|
((lambda ((:k1 ()))
|
|
(when k1
|
|
(assert ()))
|
|
(assert (= k1 ()))))
|
|
|
|
(define (test)
|
|
((lambda ()
|
|
(define (a)
|
|
:ok)
|
|
(define (b (:k (begin (show-environment) (a))))
|
|
k)
|
|
(b))))
|