From b64b2c3074c3ce4f81a695016f9af71e735b1988 Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Sat, 5 Apr 2014 02:44:30 +0900
Subject: [PATCH] bugfix

---
 src/write.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/write.c b/src/write.c
index 4c59d8ed..2eb3575e 100644
--- a/src/write.c
+++ b/src/write.c
@@ -320,7 +320,7 @@ write_core(struct writer_control *p, pic_value obj)
     break;
   case PIC_TT_SC:
     xfprintf(file, "#<sc %p: ", pic_ptr(obj));
-    write_core(p, pic_sc(obj)->expr);
+    write_core(p, pic_sc_ptr(obj)->expr);
     xfprintf(file, ">");
     break;
   case PIC_TT_LIB: