stupid typo
svn: r6769 original commit: 1a27b9a1a9061cf0f3ec24f214d8a09b98c38e83
This commit is contained in:
parent
3c72a6622a
commit
49d8aded99
|
@ -10,7 +10,7 @@
|
||||||
(wrap inp (scribble:read-inside inp)))
|
(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)])
|
||||||
(wrap port (scribble:read-inside-syntax src port))))
|
(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)]
|
||||||
|
|
Loading…
Reference in New Issue
Block a user