suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

syntax/docprovide: fix direct call to module name resolver

Browse Source 
Also, deprecate the library.
This commit is contained in:
Matthew Flatt 2014-06-09 08:20:00 +01:00
parent 8aaa3fc5b5
commit 006ffc8ae3
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pkgs/racket-pkgs/racket-doc/syntax/scribblings/docprovide.scrbl
View File

@ -5,6 +5,8 @@
@defmodule[syntax/docprovide] @defmodule[syntax/docprovide]
@deprecated[@racketmodname[scribble/srcdoc]]
@defform/subs[#:literals (all-from all-from-except) @defform/subs[#:literals (all-from all-from-except)
(provide-and-document doc-label-id doc-row ...) (provide-and-document doc-label-id doc-row ...)
([doc-row ([doc-row

4
racket/collects/syntax/docprovide.rkt
View File

@ -78,7 +78,7 @@
stx stx
except))) except)))
exceptions) exceptions)
(let ([mod ((current-module-name-resolver) path #f #f)]) (let ([mod ((current-module-name-resolver) path #f #f #t)])
;; Execute syntax part at top-level: ;; Execute syntax part at top-level:
(dynamic-require mod (void)) (dynamic-require mod (void))
;; Extract documentation via top-level: ;; Extract documentation via top-level:
@ -252,7 +252,7 @@
(define (lookup-documentation path label) (define (lookup-documentation path label)
(let ([mod ((current-module-name-resolver) path #f #f)]) (let ([mod ((current-module-name-resolver) path #f #f #t)])
(dynamic-require mod (void)) (dynamic-require mod (void))
((dynamic-require-for-syntax ((dynamic-require-for-syntax
'syntax/private/doctable 'syntax/private/doctable