From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 20 Nov 1994 05:18:03 +0000 (+0000)
Subject: Change to use new file-length procedure.
X-Git-Tag: 20090517-FFI~6998
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=0b02930e23bc4b587217f5d57a5066b6530ce63f;p=mit-scheme.git

Change to use new file-length procedure.
---

diff --git a/v7/src/edwin/notify.scm b/v7/src/edwin/notify.scm
index 51614079e..9d3e6b9e0 100644
--- a/v7/src/edwin/notify.scm
+++ b/v7/src/edwin/notify.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: notify.scm,v 1.14 1994/03/04 21:30:40 cph Exp $
+;;;	$Id: notify.scm,v 1.15 1994/11/20 05:18:03 cph Exp $
 ;;;
 ;;;	Copyright (c) 1992-94 Massachusetts Institute of Technology
 ;;;
@@ -122,12 +122,11 @@ Ignored if notify-show-mail is false."
   file-directory?)
 
 (define (notifier:mail-present)
-  (if (let ((attributes
-	     (file-attributes
-	      (merge-pathnames (ref-variable mail-notify-directory)
-			       (unix/current-user-name)))))
-	(and attributes
-	     (> (file-attributes/length attributes) 0)))
+  (if (let ((pathname
+	     (merge-pathnames (ref-variable mail-notify-directory)
+			      (unix/current-user-name))))
+	(and (file-exists? pathname)
+	     (> (file-length pathname) 0)))
       (ref-variable notify-mail-present)
       (ref-variable notify-mail-not-present)))