suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

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

Browse Source 
original commit: b9b7bb784af96679391d4bbbc44f3870e782c74a
This commit is contained in:
Jay McCarthy 2010-10-07 18:35:25 -06:00
parent 4b9fcbcb7e
commit bd7d0f1ba8
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/scribble/extract.rkt
View File

@ -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)