[bpt/guile.git] / test-suite / vm / t-values.scm

(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))
Commit	Line	Data
42906d74 AW	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)))
9b10d0bc AW	8	list)
	9
	10	(call-with-values
	11	(lambda () (apply values '(1)))
42906d74	12	list))
0b5f0e49	13