test-suite/vm/t-values.scm


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