mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-28 16:00:22 +02:00
Code Activity

* r4rs.scm (OPEN_READ, OPEN_WRITE, OPEN_BOTH): Don't bother

Browse source 
testing software-type here.  That's the least of our Windows
porting issues, and it's done wrong anyway.
This commit is contained in:
Jim Blandy 1998-10-12 20:08:31 +00:00
parent 81aef0ba59
commit 670600bd66
1 changed files with 11 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

24
ice-9/r4rs.scm
View file

@ -40,19 +40,17 @@
;;; "internally" in a few places.
;; OPEN_READ, OPEN_WRITE, and OPEN_BOTH are used to request the proper
;; mode to open files in. MSDOS does carraige return - newline
;; translation if not opened in `b' mode.
;;
(define OPEN_READ (case (software-type)
((MS-DOS WINDOWS ATARIST) "rb")
(else "r")))
(define OPEN_WRITE (case (software-type)
((MS-DOS WINDOWS ATARIST) "wb")
(else "w")))
(define OPEN_BOTH (case (software-type)
((MS-DOS WINDOWS ATARIST) "r+b")
(else "r+")))
;;; OPEN_READ, OPEN_WRITE, and OPEN_BOTH are used to request the
;;; proper mode to open files in.
;;;
;;; If we want to support systems that do CRLF->LF translation, like
;;; Windows, then we should have a symbol in scmconfig.h made visible
;;; to the Scheme level that we can test here, and autoconf magic to
;;; #define it when appropriate. Windows will probably just have a
;;; hand-generated scmconfig.h file.
(define OPEN_READ "r")
(define OPEN_WRITE "w")
(define OPEN_BOTH "r+")
(define *null-device* "/dev/null")