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

fix error check in #lang info

Browse Source
This commit is contained in:
Robby Findler 2013-08-10 05:16:59 -05:00
parent 47d433b9c1
commit c93debe653
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
racket/collects/setup/infotab.rkt
View File

@ -16,6 +16,7 @@
(loop (cdr defns) (loop (cdr defns)
(syntax-case (car defns) (define) (syntax-case (car defns) (define)
[(define var val) [(define var val)
(identifier? #'var)
(cons (syntax var) r)] (cons (syntax var) r)]
;; In case it gets expanded: ;; In case it gets expanded:
[(define-values (var) val) [(define-values (var) val)