From a09c703ed6dd23ad31e94e0b6c7399f6d08dae19 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 17 Jan 2017 16:17:03 -0800
Subject: [PATCH] Eliminate simple-predicate?.

---
 src/runtime/predicate-metadata.scm | 5 -----
 src/runtime/runtime.pkg            | 1 -
 2 files changed, 6 deletions(-)

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
-- 
2.25.1