This commit is contained in:
Peter Taoussanis 2014-01-21 12:47:46 +07:00
parent d112ecc395
commit c11d4e36a8

View file

@ -213,7 +213,7 @@
(do (when-debug-mode (do (when-debug-mode
(println (format "DEBUG - Reader fallback: %s" (type x)))) (println (format "DEBUG - Reader fallback: %s" (type x))))
(write-id s id-reader) (write-id s id-reader)
(write-bytes s (.getBytes (pr-str x) "UTF-8"))) (write-utf8 s (pr-str x)))
:else ; Fallback #3: *final-freeze-fallback* :else ; Fallback #3: *final-freeze-fallback*
(if-let [ffb *final-freeze-fallback*] (ffb x s) (if-let [ffb *final-freeze-fallback*] (ffb x s)