suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

adjust test that depends on keyword-argument expansion

Browse Source 
Revert the test to go along with the "kw.rkt" reversion.
This commit is contained in:
Matthew Flatt 2018-02-28 20:12:04 -07:00
parent 8f9fcb02f3
commit 7bdc3d626b
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
pkgs/racket-test-core/tests/racket/syntax.rktl
View File

@ -1858,7 +1858,7 @@
free-identifier=?
f-id
(eval '(extract (f #:x 8)
(lv _ (if const? (app f3 . _) . _))
(lv ([(proc) f2] . _) (if const? (app f3 . _) . _))
f3
#f)))
(test
@ -1866,17 +1866,17 @@
free-identifier=?
f-id
(eval '(extract (f #:x 8)
(lv _ (if const? (app f3 . _) (app2 (app3 check&extract _ f2 . _) . _)))
f2
#t)))
(lv ([(proc) f2] . _) (if const? (app f3 . _) . _))
f2
#t)))
(test
#t
free-identifier=?
f-id
(eval '(extract (f #:y 9)
(lv _ (app2 (app3 check&extract _ f2 . _) . _))
f2
#t)))
(lv ([(proc) f2] . _) . _)
f2
#t)))
(test
#t
free-identifier=?