From 4c3deea37e2efa6f27c5c7345901cb394ac9fedf Mon Sep 17 00:00:00 2001
From: Alex Shinn <alexshinn@gmail.com>
Date: Sat, 2 May 2015 22:55:46 +0900
Subject: [PATCH] Fixing synchronized-rewrite-file when the file doesn't exist.

---
 lib/chibi/snow/fort.scm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lib/chibi/snow/fort.scm b/lib/chibi/snow/fort.scm
index 66877c23..5f171163 100644
--- a/lib/chibi/snow/fort.scm
+++ b/lib/chibi/snow/fort.scm
@@ -145,6 +145,7 @@
    path
    (lambda (fd)
      (let* ((str (port->string (open-input-file-descriptor fd)))
+            (str (if (eof-object? str) (if (pair? o) (car o) "") str))
             (res (proc str))
             (out (open-output-file-descriptor fd)))
        (set-file-position! out seek/set 0)