Eliminate a warning from SF.

diff --git a/v7/src/runtime/dosprm.scm b/v7/src/runtime/dosprm.scm
index e737d8c5dfa88023289ded8577f6697d53b7a4a6..f479197e4930d173669ae14a5f49e2c6a349af9c 100644 (file)
--- 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)