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

Fixing synchronized-rewrite-file when the file doesn't exist.

Browse source
This commit is contained in:
Alex Shinn 2015-05-02 22:55:46 +09:00
parent 366dbdb9dc
commit 4c3deea37e
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -145,6 +145,7 @@
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)