Fix bug in reader examples for keywords. Push to 4.2.2.
svn: r16066
This commit is contained in:
parent
f300ba967a
commit
f64fe4a2e2
|
@ -79,7 +79,7 @@
|
||||||
[(pair? v) `(cons ,(loop (car v)) ,(loop (cdr v)))]
|
[(pair? v) `(cons ,(loop (car v)) ,(loop (cdr v)))]
|
||||||
[(bytes? v) `(bytes ,@(map loop (bytes->list v)))]
|
[(bytes? v) `(bytes ,@(map loop (bytes->list v)))]
|
||||||
[(char? v) `(integer->char ,(char->integer v))]
|
[(char? v) `(integer->char ,(char->integer v))]
|
||||||
[(keyword? v) `(string->keyword ,(format "~a" v))]
|
[(keyword? v) `(string->keyword ,(keyword->string v))]
|
||||||
[(or (regexp? v)
|
[(or (regexp? v)
|
||||||
(byte-regexp? v))
|
(byte-regexp? v))
|
||||||
`(,(cond
|
`(,(cond
|
||||||
|
|
Loading…
Reference in New Issue
Block a user