From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Tue, 3 Nov 1992 22:42:11 +0000 (+0000)
Subject: Eliminate a warning from SF.
X-Git-Tag: 20090517-FFI~8807
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=39e74f8396b570292073b0d30063697a563fd465;p=mit-scheme.git

Eliminate a warning from SF.
---

diff --git a/v7/src/runtime/dosprm.scm b/v7/src/runtime/dosprm.scm
index e737d8c5d..f479197e4 100644
--- a/v7/src/runtime/dosprm.scm
+++ b/v7/src/runtime/dosprm.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: dosprm.scm,v 1.15 1992/10/17 22:23:47 jinx Exp $
+$Id: dosprm.scm,v 1.16 1992/11/03 22:42:11 jinx Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
 
@@ -42,6 +42,7 @@ MIT in each case. |#
    (->namestring (merge-pathnames filename))))
 
 (define (file-symbolic-link? filename)
+  filename				; ignored
   false)
 
 (define (file-modes filename)