Fix typo in test
This commit is contained in:
parent
0e35b5cfad
commit
21cc46e915
|
@ -2010,7 +2010,7 @@
|
||||||
(define-values (x y) (values (car p) (cdr p)))
|
(define-values (x y) (values (car p) (cdr p)))
|
||||||
(values y x))
|
(values y x))
|
||||||
'(lambda (p)
|
'(lambda (p)
|
||||||
(values (#%unsafe-cdr p) (car p)))
|
(values (unsafe-cdr p) (car p)))
|
||||||
#f)
|
#f)
|
||||||
(test-comp '(lambda (p)
|
(test-comp '(lambda (p)
|
||||||
(define-values (x y) (values (car p) (cdr p)))
|
(define-values (x y) (values (car p) (cdr p)))
|
||||||
|
|
Loading…
Reference in New Issue
Block a user