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

better syntax checking for scribble defform #:literals

Browse Source 
svn: r12647

original commit: 88b0e558c3d0fc72cc7962ad29cc2142ceb81637
This commit is contained in:
Matthew Flatt 2008-11-30 13:25:10 +00:00
parent 10af6b4da4
commit 58f9cd85ed
1 changed files with 22 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
collects/scribble/private/manual-form.ss
View File

@ -45,6 +45,13 @@
spec spec
spec)] spec)]
[_ spec])))]) [_ spec])))])
(for-each (lambda (id)
(unless (identifier? id)
(raise-syntax-error #f
"expected an identifier for a literal"
stx
id)))
(syntax->list #'(lit ...)))
#'(with-togetherable-scheme-variables #'(with-togetherable-scheme-variables
(lit ...) (lit ...)
([form spec] [form spec1] ... ([form spec] [form spec1] ...
@ -109,13 +116,21 @@
(define-syntax (defform/none stx) (define-syntax (defform/none stx)
(syntax-case stx () (syntax-case stx ()
[(_ #:literals (lit ...) spec desc ...) [(_ #:literals (lit ...) spec desc ...)
#'(with-togetherable-scheme-variables (begin
(lit ...) (for-each (lambda (id)
([form spec]) (unless (identifier? id)
(*defforms #f (raise-syntax-error #f
'(spec) (list (lambda (ignored) (schemeblock0/form spec))) "expected an identifier for a literal"
null null stx
(lambda () (list desc ...))))] id)))
(syntax->list #'(lit ...)))
#'(with-togetherable-scheme-variables
(lit ...)
([form spec])
(*defforms #f
'(spec) (list (lambda (ignored) (schemeblock0/form spec)))
null null
(lambda () (list desc ...)))))]
[(_ spec desc ...) [(_ spec desc ...)
#'(defform/none #:literals () spec desc ...)])) #'(defform/none #:literals () spec desc ...)]))