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

commit bd7d0f1ba8a66045385378f1d0d68b9c3b988cbe
parent 4b9fcbcb7e7acc7b57d26b744588b065d28b793d
Author: Jay McCarthy <jay@racket-lang.org>
Date:   Thu,  7 Oct 2010 18:35:25 -0600

Stupidly forgot to adjust pattern mentioned in the place that I changed

original commit: b9b7bb784af96679391d4bbbc44f3870e782c74a

Diffstat:
M
collects/scribble/extract.rkt
 | 
3
++-

1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/collects/scribble/extract.rkt b/collects/scribble/extract.rkt
@@ -101,7 +101,7 @@
 (define-syntax (provide-extracted stx)
   (syntax-case stx ()
     [(_ orig-path)
-     (with-syntax ([(_begin reqs (_drop-first (_quote-syntax id) def) ...)
+     (with-syntax ([(_begin reqs doc-reqs (_drop-first (_quote-syntax id) def) ...)
                     (extract #'orig-path stx)])
        #'(begin
            (require (for-label (only-in orig-path))) ;; creates build dependency
@@ -137,6 +137,7 @@
                                       [(box? stx) #`(box #,(loop (unbox stx)))]
                                       [else #`(quote #,stx)]))]))])
                   #`(begin #,(quote-syntax/loc reqs)
+                           #,(quote-syntax/loc doc-reqs)
                            #,@(filter
                                values
                                (map (lambda (i d)