Fix print-convert on keywords.

svn: r11856
2008-09-24 19:55:52 +00:00 · 2008-09-24 19:55:52 +00:00 · 9b6a8d2e5a
commit 9b6a8d2e5a
parent 89171c0329
1 changed files with 1 additions and 0 deletions
--- a/collects/mzlib/pconvert.ss
+++ b/collects/mzlib/pconvert.ss
@ -363,6 +363,7 @@
                                                          `(,(recur k) ,(recur v)))))]
                               [(vector? expr) `(vector ,@(map recur (vector->list expr)))]
                               [(symbol? expr) `',expr]
+                               [(keyword? expr) `',expr]
                               [(string? expr) expr]
                               [(primitive? expr) (object-name expr)]
                               [(procedure? expr)