diff options
Diffstat (limited to 'share')
| -rw-r--r-- | share/txr/stdlib/getput.tl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/share/txr/stdlib/getput.tl b/share/txr/stdlib/getput.tl index b075e812..daf08b1e 100644 --- a/share/txr/stdlib/getput.tl +++ b/share/txr/stdlib/getput.tl @@ -91,7 +91,7 @@ (put-buf buf 0 s))) (defun file-place-buf (name buf : (seek 0)) - (with-stream (s (open-file name "r+")) + (with-stream (s (open-file name "mb")) (unless (zerop seek) (seek-stream s seek :from-current)) (put-buf buf 0 s))) |