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) (define-syntax (provide-extracted stx)
(syntax-case stx () (syntax-case stx ()
[(_ orig-path) [(_ 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)]) (extract #'orig-path stx)])
#'(begin #'(begin
(require (for-label (only-in orig-path))) ;; creates build dependency (require (for-label (only-in orig-path))) ;; creates build dependency
@ -137,6 +137,7 @@
[(box? stx) #`(box #,(loop (unbox stx)))] [(box? stx) #`(box #,(loop (unbox stx)))]
[else #`(quote #,stx)]))]))]) [else #`(quote #,stx)]))]))])
#`(begin #,(quote-syntax/loc reqs) #`(begin #,(quote-syntax/loc reqs)
#,(quote-syntax/loc doc-reqs)
#,@(filter #,@(filter
values values
(map (lambda (i d) (map (lambda (i d)