06/06/24 22:25:39
(define exit-k '())
(call-with-current-continuation (lambda (k) (set! exit-k k)))
(define 乙
(lambda ()
(k (lambda () (display "乙!") (newline)))))
06/06/24 22:25:39
(define exit-k '())
(call-with-current-continuation (lambda (k) (set! exit-k k)))
(define 乙
(lambda ()
(k (lambda () (display "乙!") (newline)))))