From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 26 Jan 2017 21:43:26 +0000 (-0800)
Subject: Eliminate call to now-undefined simple-predicate?.
X-Git-Tag: mit-scheme-pucked-9.2.12~227^2~82
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=babc018e528fbcdb4a4e00565e9990acf45169a1;p=mit-scheme.git

Eliminate call to now-undefined simple-predicate?.
---

diff --git a/tests/runtime/test-parametric-predicate.scm b/tests/runtime/test-parametric-predicate.scm
index aa002bc9c..5284d7a59 100644
--- a/tests/runtime/test-parametric-predicate.scm
+++ b/tests/runtime/test-parametric-predicate.scm
@@ -224,7 +224,6 @@ USA.
     (assert-equal (tag-name tag) name)))
 
 (define (test-parametric-predicate-operations predicate template parameters)
-  (assert-false (simple-predicate? predicate))
   (assert-false (compound-predicate? predicate))
   (assert-true (parametric-predicate? predicate))
   (assert-eqv (parametric-predicate-template predicate) template)