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
(println (format "DEBUG - Reader fallback: %s" (type x))))
(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*
(if-let [ffb *final-freeze-fallback*] (ffb x s)