t-values.scm 341 B

1234567891011121314
  1. (list (call-with-values
  2. (lambda () (values 1 2))
  3. (lambda (x y) (cons x y)))
  4. ;; the start-stack forces a bounce through the interpreter
  5. (call-with-values
  6. (lambda () (start-stack 'foo (values 1 2)))
  7. list)
  8. (call-with-values
  9. (lambda () (apply values '(1)))
  10. list))