From 006ffc8ae385407be7fd91b0429becaed43ba677 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 9 Jun 2014 08:20:00 +0100 Subject: [PATCH] syntax/docprovide: fix direct call to module name resolver Also, deprecate the library. --- .../racket-doc/syntax/scribblings/docprovide.scrbl | 2 ++ racket/collects/syntax/docprovide.rkt | 4 ++-- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/pkgs/racket-pkgs/racket-doc/syntax/scribblings/docprovide.scrbl b/pkgs/racket-pkgs/racket-doc/syntax/scribblings/docprovide.scrbl index cfd02c76d1..0be0a95ebb 100644 --- a/pkgs/racket-pkgs/racket-doc/syntax/scribblings/docprovide.scrbl +++ b/pkgs/racket-pkgs/racket-doc/syntax/scribblings/docprovide.scrbl @@ -5,6 +5,8 @@ @defmodule[syntax/docprovide] +@deprecated[@racketmodname[scribble/srcdoc]] + @defform/subs[#:literals (all-from all-from-except) (provide-and-document doc-label-id doc-row ...) ([doc-row diff --git a/racket/collects/syntax/docprovide.rkt b/racket/collects/syntax/docprovide.rkt index c2ab11c01d..4168ef2354 100644 --- a/racket/collects/syntax/docprovide.rkt +++ b/racket/collects/syntax/docprovide.rkt @@ -78,7 +78,7 @@ stx except))) 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: (dynamic-require mod (void)) ;; Extract documentation via top-level: @@ -252,7 +252,7 @@ (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-for-syntax 'syntax/private/doctable