get rid of key=val shorthand for attributes

svn: r6699

original commit: 77ecb16001b1385f054245e856c874a565de7498
This commit is contained in:
Eli Barzilay 2007-06-19 19:41:24 +00:00
parent 2dee8da66b
commit 6113f07fea

View File

@ -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 ()