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

Undo the racket/init symbolic form thing.

Browse Source 
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 f58b58383f.
This commit is contained in:
Eli Barzilay 2010-06-25 16:02:27 -04:00
parent 28acece484
commit f5a0e6e0b8
2 changed files with 7 additions and 4 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))
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)

5
collects/tests/run-automated-tests.rkt
View File

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