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

Fix struct error for bad #:constructor-name

Browse Source
This commit is contained in:
Asumu Takikawa 2015-12-08 16:25:21 -05:00
parent 417d9b0e73
commit 34f52deeb1
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/collects/racket/private/define-struct.rkt
View File

@ -323,7 +323,7 @@
(when (lookup config '#:constructor-name) (when (lookup config '#:constructor-name)
(bad "multiple" "#:constructor-name or #:extra-constructor-name" "s" (car p))) (bad "multiple" "#:constructor-name or #:extra-constructor-name" "s" (car p)))
(unless (identifier? (cadr p)) (unless (identifier? (cadr p))
(bad "need an identifier after" (car p) (cadr p))) (bad "need an identifier after" (car p) "" (cadr p)))
(loop (cddr p) (loop (cddr p)
(extend-config (extend-config config '#:constructor-name (cadr p)) (extend-config (extend-config config '#:constructor-name (cadr p))
'#:only-constructor? '#:only-constructor?