blob: f4c0516a39dcb96b5b32b1ae34bb37c3d34fc57d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
(list (call-with-values
(lambda () (values 1 2))
(lambda (x y) (cons x y)))
;; the start-stack forces a bounce through the interpreter
(call-with-values
(lambda () (start-stack 'foo (values 1 2)))
list)
(call-with-values
(lambda () (apply values '(1)))
list))
|