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 0019167930590f3375fbd363caf833887ba77db8..2e43d872ba6b34b3b3ccecf7ec34f658f24c66b7 100644 (file)
--- 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 ()