used the wrong dir when checking the info.rkt santity

thanks to Jos Koot for pointing out this bug
This commit is contained in:
Robby Findler 2013-03-01 18:02:41 -06:00
parent 42847ea523
commit 3a40afaf05

View File

@ -363,7 +363,7 @@
(define info.rkt
(let ([real-info
(check-info.rkt-sanity
dir
abs-dir
(λ (msg . args) (set! announcements (cons (apply format msg args) announcements)))
(λ (bad) (set! warnings (cons bad warnings)))
(λ (err) (set! critical-errors (cons err critical-errors))))])