conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

unlock define-values tests

This commit is contained in:
Yuichi Nishiwaki 2014-06-29 15:08:04 +09:00
parent 2af2362b4f
commit 3c26c289f3
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
t/r7rs-tests.scm
View File

@ -520,10 +520,10 @@
(let () (let ()
(define-values (x) (values 1)) (define-values (x) (values 1))
x)) x))
;; (test 3 (test 3
;; (let () (let ()
;; (define-values x (values 1 2)) (define-values x (values 1 2))
;; (apply + x))) (apply + x)))
(test 3 (test 3
(let () (let ()
(define-values (x y) (values 1 2)) (define-values (x y) (values 1 2))
@ -532,10 +532,10 @@
(let () (let ()
(define-values (x y z) (values 1 2 3)) (define-values (x y z) (values 1 2 3))
(+ x y z))) (+ x y z)))
;; (test 10 (test 10
;; (let () (let ()
;; (define-values (x y . z) (values 1 2 3 4)) (define-values (x y . z) (values 1 2 3 4))
;; (+ x y (car z) (cadr z)))) (+ x y (car z) (cadr z))))
(test '(2 1) (let ((x 1) (y 2)) (test '(2 1) (let ((x 1) (y 2))
(define-syntax swap! (define-syntax swap!