HCoop
/
bpt
/
guile.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
Rename the `testsuite' directory to `test-suite/vm'.
[bpt/guile.git]
/
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