From f5a0e6e0b8f1a0bac8812ac366d790e3178b78b3 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Fri, 25 Jun 2010 16:02:27 -0400 Subject: [PATCH] Undo the racket/init symbolic form thing. It needs to be (lib "racket/init") because that's the way that racket uses the -I flag. I think that I ran into this in the past, so drop in a comment explaining this. This reverts commit f58b58383fd6f1c4bfd841f0586d3117a07429d4. --- collects/tests/racket/stx.rktl | 6 +++--- collects/tests/run-automated-tests.rkt | 5 ++++- 2 files changed, 7 insertions(+), 4 deletions(-) diff --git a/collects/tests/racket/stx.rktl b/collects/tests/racket/stx.rktl index 5229c0d704..9ba9b94001 100644 --- a/collects/tests/racket/stx.rktl +++ b/collects/tests/racket/stx.rktl @@ -477,11 +477,11 @@ (cdddr b)) b))) -(test '('#%kernel case-lambda racket/init case-lambda 0 0 0) +(test '('#%kernel case-lambda (lib "racket/init") case-lambda 0 0 0) identifier-binding* #'case-lambda) -(test '("private/promise.rkt" delay* racket/init delay 0 0 0) +(test '("private/promise.rkt" delay* (lib "racket/init") delay 0 0 0) identifier-binding* #'delay) -(test '('#%kernel #%module-begin racket/init #%plain-module-begin 0 0 0) +(test '('#%kernel #%module-begin (lib "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) diff --git a/collects/tests/run-automated-tests.rkt b/collects/tests/run-automated-tests.rkt index 0534f9e3a0..69598e3ce1 100755 --- a/collects/tests/run-automated-tests.rkt +++ b/collects/tests/run-automated-tests.rkt @@ -28,7 +28,10 @@ ;; require (relative to this script). (define (all-tests) (test "racket/quiet.rktl" #:load? #t #:handler? #f - #:additional-modules '(racket/init)) + ;; this *must* be in (lib ...) form, since that's the way that racket + ;; uses the -I value to initialize the namespace, and there are tests + ;; that expect to get (lib "racket/init") as a result. + #:additional-modules '((lib "racket/init"))) ;; (test "planet/lang.rkt") (test "typed-scheme/nightly-run.rkt" #:timeout 25) (test "match/plt-match-tests.rkt")