small doc fixes, plus change to syntax pattern matching to allow null as a dotted match after ellipses

svn: r8384 original commit: b2dbe63ed1d33bdf317ff6ec7fc8b9e17e3933c3
2008-01-23 01:35:26 +00:00 · 2008-01-23 01:35:26 +00:00 · c55cb486c0
commit c55cb486c0
parent 15b2bb3c4a
1 changed files with 1 additions and 0 deletions
--- a/collects/mzlib/kw.ss
+++ b/collects/mzlib/kw.ss
@ -44,6 +44,7 @@
  (define (formals->list formals)
    (syntax-case formals ()
      [(formal ... . rest)
+       (not (null? (syntax-e #'rest)))
       ;; dot is exactly like #:rest, but don't allow it with other
       ;; meta-keywords since its meaning is confusing
       (let* ([formals (syntax->list #'(formal ...))]