From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 17 Apr 1987 00:58:33 +0000 (+0000)
Subject: Eliminate use of `mapcar', clean up some other things too.
X-Git-Tag: 20090517-FFI~13621
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=de0681d78bf4f2311fc5e5d32e82d461f442b7e2;p=mit-scheme.git

Eliminate use of `mapcar', clean up some other things too.
---

diff --git a/v7/src/runtime/boot.scm b/v7/src/runtime/boot.scm
index 612a2b171..f64819b4d 100644
--- a/v7/src/runtime/boot.scm
+++ b/v7/src/runtime/boot.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/boot.scm,v 13.42 1987/02/11 02:21:11 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/boot.scm,v 13.43 1987/04/17 00:58:33 cph Rel $
 ;;;
 ;;;	Copyright (c) 1987 Massachusetts Institute of Technology
 ;;;
@@ -50,9 +50,9 @@
 (let-syntax ((define-global-primitives
 	      (macro names
 		`(BEGIN
-		  ,@(mapcar (lambda (name)
-			      `(DEFINE ,name ,(make-primitive-procedure name)))
-			    names)))))
+		  ,@(map (lambda (name)
+			   `(DEFINE ,name ,(make-primitive-procedure name)))
+			 names)))))
   (define-global-primitives
    SCODE-EVAL FORCE WITH-THREADED-CONTINUATION
    SET-INTERRUPT-ENABLES! WITH-INTERRUPTS-REDUCED
@@ -139,5 +139,4 @@
 
 (define (boolean? object)
   (or (eq? object #F)
-      (eq? object #T)))
       (eq? object #T)))
\ No newline at end of file