commit 142609a67b8d1ad3441089d73070807eb72d6913 parent eadb5fec07e55a5ec845558711de527d93c7d37b Author: Matthew Flatt <mflatt@racket-lang.org> Date: Sat, 3 Apr 2010 11:59:26 +0000 fix module-laguage info from scribble/doc svn: r18729 original commit: 6cd548b0f35f49b9a05000397341c271e379cbfd Diffstat:
| M | collects/scribble/doc/lang/reader.ss | | | 8 | +++++++- |
1 file changed, 7 insertions(+), 1 deletion(-)
diff --git a/collects/scribble/doc/lang/reader.ss b/collects/scribble/doc/lang/reader.ss @@ -1,8 +1,14 @@ #lang scheme/base (require (prefix-in doc: scribble/doc/reader)) -(provide (rename-out [doc:read read] [doc:read-syntax read-syntax]) +(provide (rename-out [doc:read read] + [my:read-syntax read-syntax]) get-info) +(define (my:read-syntax . args) + (let ([s (apply doc:read-syntax args)]) + ;; For now, remove the 'module-language property added by `doc:read-syntax' + (syntax-property s 'module-language #f))) + (define (get-info . args) (lambda (key defval) (case key