suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

fix module-laguage info from scribble/doc

Browse Source 
svn: r18729

original commit: 6cd548b0f35f49b9a05000397341c271e379cbfd
This commit is contained in:
Matthew Flatt 2010-04-03 11:59:26 +00:00
parent eadb5fec07
commit 142609a67b
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/scribble/doc/lang/reader.ss
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