From 74f1ed845b08625eb28063e45a725f44a0a0d45d Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 21 Nov 1993 06:51:42 +0000
Subject: [PATCH] Repaginate. Eliminate compiler warnings.
---
v7/src/runtime/apropos.scm | 32 ++++++++++++++++++--------------
1 file changed, 18 insertions(+), 14 deletions(-)
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
--
2.25.1