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

this file was not used, and was bogus (referred to the "big" collection)

Browse Source 
svn: r10721
This commit is contained in:
Eli Barzilay 2008-07-12 02:06:53 +00:00
parent 5726d77d87
commit 92440b68eb
1 changed files with 0 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
collects/scribble/defreader.ss
View File

@ -1,24 +0,0 @@
(module defreader mzscheme
(require (prefix scribble: "reader.ss")
mzlib/kw)
(provide (rename *read read)
(rename *read-syntax read-syntax))
(define/kw (*read #:optional [inp (current-input-port)])
(wrap inp (scribble:read-inside inp)))
(define/kw (*read-syntax #:optional src [port (current-input-port)])
(wrap port (scribble:read-syntax-inside src port)))
(define (wrap port body)
(let* ([p-name (object-name port)]
[name (if (path? p-name)
(let-values ([(base name dir?) (split-path p-name)])
(string->symbol (path->string (path-replace-suffix name #""))))
'page)]
[id 'doc])
`(module ,name (lib "lang.ss" "big")
. ,body))))