From 3cd5375c2818461a3b4a534a1ee23b8cff9a453a Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Sat, 2 May 2015 23:07:26 +0900 Subject: [PATCH] Fixing update-repo on empty files (yawn, too late at night). --- lib/chibi/snow/fort.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/chibi/snow/fort.scm b/lib/chibi/snow/fort.scm index 5f171163..e95df6df 100644 --- a/lib/chibi/snow/fort.scm +++ b/lib/chibi/snow/fort.scm @@ -145,7 +145,6 @@ 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) @@ -176,7 +175,8 @@ (rewrite-repo cfg (lambda (repo) - `(,(car repo) ,value ,@(remove rem-pred (cdr repo)))))) + (let ((repo (if (pair? repo) repo '(repository)))) + `(,(car repo) ,value ,@(remove rem-pred (cdr repo))))))) (define (update-repo-object cfg key-field value) (let* ((type (car value))