Eliminate simple-predicate?.

diff --git a/src/runtime/predicate-metadata.scm b/src/runtime/predicate-metadata.scm
index 71e00cc900ba3f38eec5a147fd9d6e2957303b3b..49415ff1479e7657a655e0861b59a310ab0266d2 100644 (file)
--- a/src/runtime/predicate-metadata.scm
+++ b/src/runtime/predicate-metadata.scm
@@ -104,11 +104,6 @@ USA.
                              (string-append "list of "
                                             (predicate-description predicate))
                              caller))
-
-(define (simple-predicate? object)
-  (let ((tag (get-predicate-tag object #f)))
-    (and tag
-         (not (tag-extra tag)))))
 \f
 (define (make-tag name datum-test tagging-strategy caller
                  #!optional extra description)

diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg
index b57672cda1c602fce1e16c67380bbbc5feacb09b..b2b12cabab346a108d7b09045f93b7267db3d079 100644 (file)
--- a/src/runtime/runtime.pkg
+++ b/src/runtime/runtime.pkg
@@ -1789,7 +1789,6 @@ USA.
          predicate?
          register-predicate!
          set-predicate<=!
-         simple-predicate?
          unregister-predicate!)
   (export (runtime)
          bottom-tag