From 03b4ccc84825b04e497a5281ce2674b59133b95d Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Mon, 7 Oct 2013 18:54:04 +0900
Subject: [PATCH] Writing out syntactic closures in the simple writer.

---
 sexp.c | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/sexp.c b/sexp.c
index 2858153a..7373ca52 100644
--- a/sexp.c
+++ b/sexp.c
@@ -1974,6 +1974,13 @@ sexp sexp_write_one (sexp ctx, sexp obj, sexp out) {
       sexp_write(ctx, sexp_make_fixnum(sexp_fileno_fd(obj)), out);
       sexp_write_char(ctx, '>', out);
       break;
+    case SEXP_SYNCLO:
+      sexp_write_string(ctx, "#<SC ", out);
+      sexp_write(ctx, sexp_make_fixnum(obj), out);
+      sexp_write_char(ctx, ' ', out);
+      sexp_write(ctx, sexp_synclo_expr(obj), out);
+      sexp_write_char(ctx, '>', out);
+      break;
     default:
       i = sexp_pointer_tag(obj);
       if (i < 0 || i >= sexp_context_num_types(ctx)) {