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

unbreak check syntax

Browse Source
This commit is contained in:
Robby Findler 2013-04-26 15:25:17 -05:00
parent 0f8d66b29f
commit 6e83f84b1d
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
collects/drracket/private/syncheck/traversals.rkt
View File

@ -379,6 +379,7 @@
(define (handle-phaseless-spec stx level) (define (handle-phaseless-spec stx level)
(define adjusted-level (and level (+ level level-of-enclosing-module))) (define adjusted-level (and level (+ level level-of-enclosing-module)))
(define require-ht (hash-ref! phase-to-requires (define require-ht (hash-ref! phase-to-requires
adjusted-level
(λ () (λ ()
(define h (make-hash)) (define h (make-hash))
(hash-set! phase-to-requires adjusted-level h) (hash-set! phase-to-requires adjusted-level h)