fix module-laguage info from scribble/doc

svn: r18729

original commit: 6cd548b0f35f49b9a05000397341c271e379cbfd
This commit is contained in:
Matthew Flatt 2010-04-03 11:59:26 +00:00
parent eadb5fec07
commit 142609a67b

View File

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