mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-04-30 11:50:28 +02:00
aa592f96b0
* testsuite: Move to... * test-suite/vm: ... here. * Makefile.am (SUBDIRS): Remove `testsuite'. * configure.ac: Output `test-suite/vm/Makefile' instead of `testsuite/Makefile'. * test-suite/Makefile.am (SUBDIRS): Add `vm'.
13 lines
341 B
Scheme
13 lines
341 B
Scheme
(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))
|
|
|