test-suite/vm/t-values.scm

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