17 lines
324 B
Scheme
17 lines
324 B
Scheme
|
(import (scheme base)
|
||
|
|
(picrin control)
|
||
|
|
(picrin test))
|
||
|
|
|
||
|
|
(test-begin)
|
||
|
|
|
||
|
|
(test 1 (escape (lambda (exit) (begin (exit 1) 2))))
|
||
|
|
|
||
|
|
(define cont #f)
|
||
|
|
|
||
|
|
(test "calling dead escape continuation"
|
||
|
|
(guard (c ((error-object? c) (error-object-message c)))
|
||
|
|
(escape (lambda (exit) (set! cont exit)))
|
||
|
|
(cont 3)))
|
||
|
|
|
||
|
|
(test-end)
|