unbreak check syntax

2013-04-26 15:25:17 -05:00 · 2013-04-26 15:25:17 -05:00 · 6e83f84b1d
commit 6e83f84b1d
parent 0f8d66b29f
1 changed files with 1 additions and 0 deletions
--- a/collects/drracket/private/syncheck/traversals.rkt
+++ b/collects/drracket/private/syncheck/traversals.rkt
@ -379,6 +379,7 @@
                 (define (handle-phaseless-spec stx level)
                   (define adjusted-level (and level (+ level level-of-enclosing-module)))
                   (define require-ht (hash-ref! phase-to-requires 
+                                                 adjusted-level
                                                 (λ ()
                                                   (define h (make-hash))
                                                   (hash-set! phase-to-requires adjusted-level h)