fix error check in #lang info

2013-08-10 05:16:59 -05:00 · 2013-08-10 05:16:59 -05:00 · c93debe653
commit c93debe653
parent 47d433b9c1
1 changed files with 1 additions and 0 deletions
--- 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)