From a44224405b2fd5a3eeead3986d59430fc2215b75 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 5 Jan 2017 23:32:46 -0800 Subject: [PATCH] Eliminate boot-load implementation of register-predicate!. Not needed now that boot-time registrations are being done manually. --- src/runtime/predicate-metadata.scm | 18 +----------------- 1 file changed, 1 insertion(+), 17 deletions(-) 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 () -- 2.25.1