diff options
Diffstat (limited to 'module/ice-9')
-rw-r--r-- | module/ice-9/boot-9.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm index 900c25a8c..a8b771e33 100644 --- a/module/ice-9/boot-9.scm +++ b/module/ice-9/boot-9.scm @@ -1446,7 +1446,7 @@ VALUE." (lambda (str) (->bool (stat str #f))) (lambda (str) - (let ((port (catch 'system-error (lambda () (open-file str OPEN_READ)) + (let ((port (catch 'system-error (lambda () (open-input-file str)) (lambda args #f)))) (if port (begin (close-port port) #t) #f))))) @@ -1457,8 +1457,8 @@ VALUE." (eq? (stat:type (stat str)) 'directory)) (lambda (str) (let ((port (catch 'system-error - (lambda () (open-file (string-append str "/.") - OPEN_READ)) + (lambda () + (open-input-file (string-append str "/."))) (lambda args #f)))) (if port (begin (close-port port) #t) #f))))) |