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

fix syntax-error message

Browse Source 
svn: r867
This commit is contained in:
Matthew Flatt 2005-09-18 00:52:24 +00:00
parent 0cedaf8217
commit f3c0de5891
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/plai/private/datatype-core.ss
View File

@ -283,7 +283,7 @@
#,@(if (memq 'define-compatibility options) #,@(if (memq 'define-compatibility options)
#`((define-proc-values (make-variant-name ...) (values variant-name ...))) #`((define-proc-values (make-variant-name ...) (values variant-name ...)))
null)))))] null)))))]
[(_ orig-stx (option ...) name pred-name variant ...) [(_ orig-stx (option ...) define-proc-values name (alpha ...) pred-name variant ...)
;; Must be a bad variant... ;; Must be a bad variant...
(for-each (lambda (variant) (for-each (lambda (variant)
(syntax-case variant () (syntax-case variant ()