From c93debe653d7d8fa9b2227b995ea2da6134355c2 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sat, 10 Aug 2013 05:16:59 -0500 Subject: [PATCH] fix error check in #lang info --- racket/collects/setup/infotab.rkt | 1 + 1 file changed, 1 insertion(+) diff --git a/racket/collects/setup/infotab.rkt b/racket/collects/setup/infotab.rkt index 972cbef86b..6fe3f5292c 100644 --- a/racket/collects/setup/infotab.rkt +++ b/racket/collects/setup/infotab.rkt @@ -16,6 +16,7 @@ (loop (cdr defns) (syntax-case (car defns) (define) [(define var val) + (identifier? #'var) (cons (syntax var) r)] ;; In case it gets expanded: [(define-values (var) val)