From c55cb486c08eea43e4012ef4117be80fd3f2311b Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 23 Jan 2008 01:35:26 +0000
Subject: [PATCH] small doc fixes, plus change to syntax pattern matching to
 allow null as a dotted match after ellipses

svn: r8384

original commit: b2dbe63ed1d33bdf317ff6ec7fc8b9e17e3933c3
---
 collects/mzlib/kw.ss | 1 +
 1 file changed, 1 insertion(+)

diff --git a/collects/mzlib/kw.ss b/collects/mzlib/kw.ss
index bafd696..2dcb72d 100644
--- 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 ...))]