From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 6 Jan 2004 05:54:32 +0000 (+0000)
Subject: Use FILE-READABLE? instead of FILE-EXISTS? when testing for
X-Git-Tag: 20090517-FFI~1739
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=18b381809fa52ec76436d2ec82bd94352e3eb2e3;p=mit-scheme.git

Use FILE-READABLE? instead of FILE-EXISTS? when testing for
"/dev/urandom".
---

diff --git a/v7/src/runtime/random.scm b/v7/src/runtime/random.scm
index 8aecec155..198e1cef6 100644
--- a/v7/src/runtime/random.scm
+++ b/v7/src/runtime/random.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: random.scm,v 14.32 2004/01/05 21:04:38 cph Exp $
+$Id: random.scm,v 14.33 2004/01/06 05:54:32 cph Exp $
 
 Copyright 1988,1989,1993,1994,1995,1996 Massachusetts Institute of Technology
 Copyright 1998,1999,2000,2001,2003,2004 Massachusetts Institute of Technology
@@ -164,7 +164,7 @@ USA.
   (let ((state (if (default-object? state) #f state)))
     (if (or (eq? #t state) (int:integer? state))
 	;; Use good random source if available
-	(if (file-exists? "/dev/urandom")
+	(if (file-readable? "/dev/urandom")
 	    (call-with-input-file "/dev/urandom"
 	      (lambda (port)
 		(initial-random-state