Eliminate warning from SF.

diff --git a/v7/src/runtime/make.scm b/v7/src/runtime/make.scm
index 078a86cfaa083d4e4553d9617ef996aefa233e48..70fa668bc574d1670091b4031bab555ee46973ba 100644 (file)
--- a/v7/src/runtime/make.scm
+++ b/v7/src/runtime/make.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: make.scm,v 14.42 1993/02/25 02:02:48 gjr Exp $
+$Id: make.scm,v 14.43 1993/02/25 03:20:22 gjr Exp $
 
 Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
@@ -295,6 +295,7 @@ MIT in each case. |#
     (if (implemented-primitive-procedure? prim)
        prim
        (lambda (name)
+         name                          ; ignored
          false))))
 \f
 ;; Construct the package structure.

diff --git a/v8/src/runtime/make.scm b/v8/src/runtime/make.scm
index 078a86cfaa083d4e4553d9617ef996aefa233e48..70fa668bc574d1670091b4031bab555ee46973ba 100644 (file)
--- a/v8/src/runtime/make.scm
+++ b/v8/src/runtime/make.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: make.scm,v 14.42 1993/02/25 02:02:48 gjr Exp $
+$Id: make.scm,v 14.43 1993/02/25 03:20:22 gjr Exp $
 
 Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
@@ -295,6 +295,7 @@ MIT in each case. |#
     (if (implemented-primitive-procedure? prim)
        prim
        (lambda (name)
+         name                          ; ignored
          false))))
 \f
 ;; Construct the package structure.