From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 21 Nov 1993 06:51:42 +0000 (+0000)
Subject: Repaginate.  Eliminate compiler warnings.
X-Git-Tag: 20090517-FFI~7460
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=74f1ed845b08625eb28063e45a725f44a0a0d45d;p=mit-scheme.git

Repaginate.  Eliminate compiler warnings.
---

diff --git a/v7/src/runtime/apropos.scm b/v7/src/runtime/apropos.scm
index 347a38a96..9fe3cb3dc 100644
--- a/v7/src/runtime/apropos.scm
+++ b/v7/src/runtime/apropos.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: apropos.scm,v 1.1 1993/11/18 04:30:52 adams Exp $
+$Id: apropos.scm,v 1.2 1993/11/21 06:51:42 cph Exp $
 
-Copyright (c) 1988-1992 Massachusetts Institute of Technology
+Copyright (c) 1993 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -35,33 +35,37 @@ MIT in each case. |#
 ;;;; Apropos command
 ;;; package: (runtime apropos)
 
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 (declare (usual-integrations))
-
+
 (define (apropos text #!optional package/env search-parents?)
   (let* ((env
-	  (cond ((default-object? package/env)    (nearest-repl/environment))
-		((eq? package/env #t)             (nearest-repl/environment))
-		(else                             (->environment package/env))))
+	  (cond ((default-object? package/env)   (nearest-repl/environment))
+		((eq? package/env #t)            (nearest-repl/environment))
+		(else                            (->environment package/env))))
 	 (search-parents?
 	  (or (default-object? package/env)
 	      (and (not (default-object? search-parents?))
 		   search-parents?))))
-    (aproposer text env search-parents? apropos-describe-env apropos-describe)))
+    (aproposer text env search-parents?
+	       apropos-describe-env apropos-describe)))
 
 
 (define (apropos-list text #!optional package/env search-parents?)
   (let* ((env
-	  (cond ((default-object? package/env)    (nearest-repl/environment))
-		((eq? package/env #t)             (nearest-repl/environment))
-		(else                             (->environment package/env))))
+	  (cond ((default-object? package/env)   (nearest-repl/environment))
+		((eq? package/env #t)            (nearest-repl/environment))
+		(else                            (->environment package/env))))
 	 (search-parents?
 	  (or (default-object? package/env)
 	      (and (not (default-object? search-parents?))
 		   search-parents?))))
     (let ((names '()))
-      (define (add-name name env) (set! names (cons name names)))
+      (define (add-name name env)
+	env
+	(set! names (cons name names))
+	unspecific)
       (aproposer text env search-parents? (lambda (env) env) add-name)
       names)))
 
@@ -79,11 +83,11 @@ MIT in each case. |#
 
 
 (define (apropos-describe symbol env)
+  env
   (newline)
   (display symbol))
 
 (define (apropos-describe-env env)
   (let ((package (environment->package env)))
     (newline)
-    (display (or package env))))
-
+    (display (or package env))))
\ No newline at end of file