Fix bug in reader examples for keywords. Push to 4.2.2.

svn: r16066
This commit is contained in:
Sam Tobin-Hochstadt 2009-09-19 00:00:21 +00:00
parent f300ba967a
commit f64fe4a2e2

View File

@ -79,7 +79,7 @@
[(pair? v) `(cons ,(loop (car v)) ,(loop (cdr v)))]
[(bytes? v) `(bytes ,@(map loop (bytes->list 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)
(byte-regexp? v))
`(,(cond