Adjust tests to requiring racket/init in symbolic form.
This commit is contained in:
parent
382a45ad6f
commit
f58b58383f
|
@ -477,11 +477,11 @@
|
|||
(cdddr 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)
|
||||
(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)
|
||||
(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)
|
||||
(require (only-in scheme/base [#%plain-module-begin #%pmb]))
|
||||
(test '('#%kernel #%module-begin scheme/base #%plain-module-begin 0 0 0)
|
||||
|
|
Loading…
Reference in New Issue
Block a user