small doc fixes, plus change to syntax pattern matching to allow null as a dotted match after ellipses
svn: r8384 original commit: b2dbe63ed1d33bdf317ff6ec7fc8b9e17e3933c3
This commit is contained in:
parent
15b2bb3c4a
commit
c55cb486c0
|
@ -44,6 +44,7 @@
|
||||||
(define (formals->list formals)
|
(define (formals->list formals)
|
||||||
(syntax-case formals ()
|
(syntax-case formals ()
|
||||||
[(formal ... . rest)
|
[(formal ... . rest)
|
||||||
|
(not (null? (syntax-e #'rest)))
|
||||||
;; dot is exactly like #:rest, but don't allow it with other
|
;; dot is exactly like #:rest, but don't allow it with other
|
||||||
;; meta-keywords since its meaning is confusing
|
;; meta-keywords since its meaning is confusing
|
||||||
(let* ([formals (syntax->list #'(formal ...))]
|
(let* ([formals (syntax->list #'(formal ...))]
|
||||||
|
|
Loading…
Reference in New Issue
Block a user