- (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))
|