From 6169c5350fbb16292a42a1127cb5af6e4cccbfd0 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 26 Apr 2013 10:25:00 -0500 Subject: [PATCH] fix online check syntax for for-label requires --- collects/drracket/private/syncheck/traversals.rkt | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/collects/drracket/private/syncheck/traversals.rkt b/collects/drracket/private/syncheck/traversals.rkt index 433c8191df..7efd886771 100644 --- a/collects/drracket/private/syncheck/traversals.rkt +++ b/collects/drracket/private/syncheck/traversals.rkt @@ -377,10 +377,11 @@ [else (handle-phaseless-spec spec 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)) - (hash-set! phase-to-requires (+ level level-of-enclosing-module) h) + (hash-set! phase-to-requires adjusted-level h) h))) (define raw-module-path (phaseless-spec->raw-module-path stx)) (annotate-require-open user-namespace user-directory raw-module-path)