fix online check syntax for for-label requires
This commit is contained in:
parent
e6888828b5
commit
6169c5350f
|
@ -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)
|
||||||
|
|
Loading…
Reference in New Issue
Block a user