Adjust tests to requiring racket/init in symbolic form.

This commit is contained in:
Eli Barzilay 2010-06-25 11:00:32 -04:00
parent 382a45ad6f
commit f58b58383f

View File

@ -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)