bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

commit 2f3e989cf58c89e606a147a380ea93714dfef7af
parent 6d43de50efc574e50cd0891ff633a55967ddc696
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Fri, 12 Dec 2014 08:21:30 -0700

repair quadraic behavior for a Scribble document's top level

The recursive macro used by `#%module-begin` had a `...` in a pattern
that only matches once, but the match is attempted every time around,
and the `...` list accumulated the body of the module.

Thanks to Shriram Krishnamurthi for reporting the problem.

Diffstat:
M
scribble-lib/scribble/doclang.rkt
 | 
4
++--

1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/scribble-lib/scribble/doclang.rkt b/scribble-lib/scribble/doclang.rkt
@@ -17,9 +17,9 @@
 
 (define-syntax (doc-begin stx)
   (syntax-case stx ()
-    [(_ m-id post-process (expr ...))
+    [(_ m-id post-process exprs)
      #`(begin
-         (define m-id (post-process (decode (list . #,(reverse (syntax->list #'(expr ...)))))))
+         (define m-id (post-process (decode (list . #,(reverse (syntax->list #'exprs))))))
          (provide m-id))]
     [(_ m-id post-process exprs . body)
      ;; `body' probably starts with lots of string constants; it's