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

Adjust tests to requiring racket/init in symbolic form.

Browse Source
This commit is contained in:
Eli Barzilay 2010-06-25 11:00:32 -04:00
parent 382a45ad6f
commit f58b58383f
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/tests/racket/stx.rktl
View File

@ -477,11 +477,11 @@
(cdddr b)) (cdddr b))
b))) b)))
(test '('#%kernel case-lambda (lib "racket/init") case-lambda 0 0 0) (test '('#%kernel case-lambda racket/init case-lambda 0 0 0)
identifier-binding* #'case-lambda) identifier-binding* #'case-lambda)
(test '("private/promise.rkt" delay* (lib "racket/init") delay 0 0 0) (test '("private/promise.rkt" delay* racket/init delay 0 0 0)
identifier-binding* #'delay) identifier-binding* #'delay)
(test '('#%kernel #%module-begin (lib "racket/init") #%plain-module-begin 0 0 0) (test '('#%kernel #%module-begin racket/init #%plain-module-begin 0 0 0)
identifier-binding* #'#%plain-module-begin) identifier-binding* #'#%plain-module-begin)
(require (only-in scheme/base [#%plain-module-begin #%pmb])) (require (only-in scheme/base [#%plain-module-begin #%pmb]))
(test '('#%kernel #%module-begin scheme/base #%plain-module-begin 0 0 0) (test '('#%kernel #%module-begin scheme/base #%plain-module-begin 0 0 0)