get rid of key=val shorthand for attributes
svn: r6699 original commit: 77ecb16001b1385f054245e856c874a565de7498
This commit is contained in:
parent
2dee8da66b
commit
6113f07fea
|
@ -7,15 +7,14 @@
|
||||||
(rename *read-syntax read-syntax))
|
(rename *read-syntax read-syntax))
|
||||||
|
|
||||||
(define (call-with-scribble-params t)
|
(define (call-with-scribble-params t)
|
||||||
(parameterize ([scribble:read-accept-=-keyword #f]
|
(parameterize ([scribble:read-insert-indents #f])
|
||||||
[scribble:read-insert-indents #f])
|
|
||||||
(t)))
|
(t)))
|
||||||
|
|
||||||
(define/kw (*read #:optional [inp (current-input-port)])
|
(define/kw (*read #:optional [inp (current-input-port)])
|
||||||
(call-with-scribble-params
|
(call-with-scribble-params
|
||||||
(lambda ()
|
(lambda ()
|
||||||
(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)])
|
||||||
(call-with-scribble-params
|
(call-with-scribble-params
|
||||||
(lambda ()
|
(lambda ()
|
||||||
|
|
Loading…
Reference in New Issue
Block a user