From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 18 Jan 2017 00:17:03 +0000 (-0800)
Subject: Eliminate simple-predicate?.
X-Git-Tag: mit-scheme-pucked-9.2.12~227^2~113
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a09c703ed6dd23ad31e94e0b6c7399f6d08dae19;p=mit-scheme.git

Eliminate simple-predicate?.
---

diff --git a/src/runtime/predicate-metadata.scm b/src/runtime/predicate-metadata.scm
index 71e00cc90..49415ff14 100644
--- 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)))))
 
 (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 b57672cda..b2b12caba 100644
--- 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