From a4a2bde6baf769329d12c3a6b2a3737526919198 Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Wed, 6 Aug 2014 15:53:29 +0900
Subject: [PATCH] use read-time eval literals for eof-object and dictionries

---
 src/write.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/write.c b/src/write.c
index ba09cdcb..bb782fe0 100644
--- a/src/write.c
+++ b/src/write.c
@@ -270,7 +270,7 @@ write_core(struct writer_control *p, pic_value obj)
     xfprintf(file, "%d", pic_int(obj));
     break;
   case PIC_TT_EOF:
-    xfprintf(file, "#,(eof-object)");
+    xfprintf(file, "#.(eof-object)");
     break;
   case PIC_TT_STRING:
     if (p->mode == DISPLAY_MODE) {
@@ -302,7 +302,7 @@ write_core(struct writer_control *p, pic_value obj)
     xfprintf(file, ")");
     break;
   case PIC_TT_DICT:
-    xfprintf(file, "#,(dictionary");
+    xfprintf(file, "#.(dictionary");
     xh_begin(&it, &pic_dict_ptr(obj)->hash);
     while (xh_next(&it)) {
       xfprintf(file, " '%s ", pic_symbol_name(pic, xh_key(it.e, pic_sym)));