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

.

Browse Source 
original commit: 2caf0f923be883760529560e886da1f2996a2901
This commit is contained in:
Matthew Flatt 2001-02-09 23:45:07 +00:00
parent 7e1692324f
commit 1a90e665b5
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mzlib/private/sigutil.ss
View File

@ -143,7 +143,7 @@
(let ([name (syntax name)] (let ([name (syntax name)]
[fields (syntax->list (syntax (field ...)))] [fields (syntax->list (syntax (field ...)))]
[omissions (syntax->list (syntax (omission ...)))]) [omissions (syntax->list (syntax (omission ...)))])
(unless (identifier? (syntax name)) (unless (identifier? name)
(syntax-error who expr (syntax-error who expr
"struct name is not an identifier" "struct name is not an identifier"
name)) name))