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 612a2b17199a86652c547366c66f7c2514fb439d..f64819b4d215288f879aacabea7f59337d437b83 100644 (file)
--- 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