From 39e74f8396b570292073b0d30063697a563fd465 Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Tue, 3 Nov 1992 22:42:11 +0000
Subject: [PATCH] Eliminate a warning from SF.

---
 v7/src/runtime/dosprm.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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)
-- 
2.25.1