From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 6 Jan 2017 07:32:46 +0000 (-0800)
Subject: Eliminate boot-load implementation of register-predicate!.
X-Git-Tag: mit-scheme-pucked-9.2.12~227^2~210
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a44224405b2fd5a3eeead3986d59430fc2215b75;p=mit-scheme.git

Eliminate boot-load implementation of register-predicate!.

Not needed now that boot-time registrations are being done manually.
---

diff --git a/src/runtime/predicate-metadata.scm b/src/runtime/predicate-metadata.scm
index 001916793..2e43d872b 100644
--- a/src/runtime/predicate-metadata.scm
+++ b/src/runtime/predicate-metadata.scm
@@ -42,15 +42,7 @@ USA.
      (set! delete-predicate-tag! (table 'delete!))
      unspecific)))
 
-(define boot-registrations (cons '() '()))
-(define (register-predicate! . args)
-  (let ((next (cons args '())))
-    (if (pair? (car boot-registrations))
-	(set-cdr! (cdr boot-registrations) next)
-	(set-car! boot-registrations next))
-    (set-cdr! boot-registrations next)))
-
-(define (register-predicate!/after-boot predicate name . keylist)
+(define (register-predicate! predicate name . keylist)
   (guarantee keyword-list? keylist 'register-predicate!)
   (let ((tag
          (make-tag predicate
@@ -190,13 +182,6 @@ USA.
 (define the-bottom-tag)
 (add-boot-init!
  (lambda ()
-   ;; Transition to post-boot registration
-   (set! register-predicate! register-predicate!/after-boot)
-   (do ((regs (car boot-registrations) (cdr regs)))
-       ((not (pair? regs)))
-     (apply register-predicate! (car regs)))
-   (set! boot-registrations)
-
    (register-predicate! predicate? 'predicate)
    (register-predicate! tag-name? 'tag-name)
    (register-predicate! tag? 'tag)
@@ -216,7 +201,6 @@ USA.
 (define (any-object? object) object #t)
 (define (no-object? object) object #f)
 
-
 ;;; Registration of standard predicates
 (add-boot-init!
  (lambda ()