andrius
/
gash
mirror of https://git.savannah.gnu.org/git/gash.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

compat: Allow binary 'open-file' on Mes. 

* gash/compat.scm [mes] (open-file): Allow "rb" and "wb" modes.
This commit is contained in:
Timothy Sample 2023-08-12 14:28:41 -06:00
parent 334aa0c0ff
commit ca36e71447
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gash/compat.scm
View File

@ -250,8 +250,12 @@
(define (open-file filename mode)
(cond
((string=? mode "r") (open-input-file filename))
((string=? mode "w") (open-output-file filename))
((or (string=? mode "r")
(string=? mode "rb"))
(open-input-file filename))
((or (string=? mode "w")
(string=? mode "wb"))
(open-output-file filename))
(else (error "Unsupported file mode" mode))))
;; Because Mes is not careful when resolving syntax, this will