fix online check syntax for for-label requires

This commit is contained in:
Robby Findler 2013-04-26 10:25:00 -05:00
parent e6888828b5
commit 6169c5350f

View File

@ -377,10 +377,11 @@
[else [else
(handle-phaseless-spec spec level)]))) (handle-phaseless-spec spec level)])))
(define (handle-phaseless-spec stx level) (define (handle-phaseless-spec stx level)
(define require-ht (hash-ref! phase-to-requires (+ level level-of-enclosing-module) (define adjusted-level (and level (+ level level-of-enclosing-module)))
(define require-ht (hash-ref! phase-to-requires
(λ () (λ ()
(define h (make-hash)) (define h (make-hash))
(hash-set! phase-to-requires (+ level level-of-enclosing-module) h) (hash-set! phase-to-requires adjusted-level h)
h))) h)))
(define raw-module-path (phaseless-spec->raw-module-path stx)) (define raw-module-path (phaseless-spec->raw-module-path stx))
(annotate-require-open user-namespace user-directory raw-module-path) (annotate-require-open user-namespace user-directory raw-module-path)