From bedc5dc6be86731281d12b1309893aac3ce75910 Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Wed, 27 Nov 2013 15:56:29 +0900
Subject: [PATCH] revise output format of syntactic closure object

---
 src/port.c | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/port.c b/src/port.c
index 0c998719..0cbe8a3e 100644
--- a/src/port.c
+++ b/src/port.c
@@ -5,6 +5,7 @@
 #include "picrin/proc.h"
 #include "picrin/port.h"
 #include "picrin/blob.h"
+#include "picrin/macro.h"
 
 static void write_pair(pic_state *pic, struct pic_pair *pair);
 static void write_str(pic_state *pic, struct pic_string *str);
@@ -104,7 +105,9 @@ write(pic_state *pic, pic_value obj)
     printf("#<senv %p>", pic_ptr(obj));
     break;
   case PIC_TT_SC:
-    printf("#<sc %p>", pic_ptr(obj));
+    printf("#<sc %p: ", pic_ptr(obj));
+    write(pic, pic_sc(obj)->expr);
+    printf(">");
     break;
   }
 }