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

better reader implementation

Browse Source 
svn: r6767

original commit: c6415843425e5df5fcd33379ab6a58db145bb8f3
This commit is contained in:
Eli Barzilay 2007-06-29 07:40:01 +00:00
parent 89f5bde7ba
commit 3c72a6622a
1 changed files with 3 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
collects/scribble/docreader.ss
View File

@ -4,21 +4,13 @@
(lib "kw.ss")) (lib "kw.ss"))
(provide (rename *read read) (provide (rename *read read)
(rename *read-syntax read-syntax)) (rename *read-syntax read-syntax))
(define (call-with-scribble-params t)
(parameterize ([scribble:read-insert-indents #f])
(t)))
(define/kw (*read #:optional [inp (current-input-port)]) (define/kw (*read #:optional [inp (current-input-port)])
(call-with-scribble-params (wrap inp (scribble:read-inside inp)))
(lambda ()
(wrap inp (scribble:read-inside inp)))))
(define/kw (*read-syntax #:optional src [port (current-input-port)]) (define/kw (*read-syntax #:optional src [port (current-input-port)])
(call-with-scribble-params (wrap port (scribble:read-inside-syntax src port))))
(lambda ()
(wrap port (scribble:read-inside-syntax src port)))))
(define (wrap port body) (define (wrap port body)
(let* ([p-name (object-name port)] (let* ([p-name (object-name port)]