From fe75dbfff558ec6da8ef4be194373d63fb28c32a Mon Sep 17 00:00:00 2001
From: Alex Shinn <alexshinn@gmail.com>
Date: Sat, 11 Jul 2015 21:07:17 +0900
Subject: [PATCH] fixing brace literals for primitive objects containing
 non-trailing raw nulls

---
 sexp.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/sexp.c b/sexp.c
index a5257071..1ada2557 100644
--- a/sexp.c
+++ b/sexp.c
@@ -108,8 +108,8 @@ sexp sexp_write_simple_object (sexp ctx, sexp self, sexp_sint_t n, sexp obj, sex
     for (i=0; i<len; i++) {
       x = sexp_slot_ref(obj, i);
       if (x) {
-        if (nulls)
-          while (--nulls) sexp_write_string(ctx, " #<null>", out);
+        for ( ; nulls; --nulls)
+          sexp_write_string(ctx, " #f", out);
         sexp_write_char(ctx, ' ', out);
         if (writer && sexp_applicablep(writer)) {
           sexp_car(args) = x;