Fix typo in test

This commit is contained in:
Gustavo Massaccesi 2015-09-14 00:30:54 -03:00
parent 0e35b5cfad
commit 21cc46e915

View File

@ -2010,7 +2010,7 @@
(define-values (x y) (values (car p) (cdr p)))
(values y x))
'(lambda (p)
(values (#%unsafe-cdr p) (car p)))
(values (unsafe-cdr p) (car p)))
#f)
(test-comp '(lambda (p)
(define-values (x y) (values (car p) (cdr p)))