Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-09 22:17:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fixing update-repo on empty files (yawn, too late at night).

Browse source
This commit is contained in:
Alex Shinn 2015-05-02 23:07:26 +09:00
parent 4c3deea37e
commit 3cd5375c28
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lib/chibi/snow/fort.scm
View file

@ -145,7 +145,6 @@
path path
(lambda (fd) (lambda (fd)
(let* ((str (port->string (open-input-file-descriptor fd))) (let* ((str (port->string (open-input-file-descriptor fd)))
(str (if (eof-object? str) (if (pair? o) (car o) "") str))
(res (proc str)) (res (proc str))
(out (open-output-file-descriptor fd))) (out (open-output-file-descriptor fd)))
(set-file-position! out seek/set 0) (set-file-position! out seek/set 0)
@ -176,7 +175,8 @@
(rewrite-repo (rewrite-repo
cfg cfg
(lambda (repo) (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) (define (update-repo-object cfg key-field value)
(let* ((type (car value)) (let* ((type (car value))