From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 21 Apr 2017 22:03:49 +0000 (-0700)
Subject: Mark ignored binding.
X-Git-Tag: mit-scheme-pucked-9.2.12~158^2~25
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=79ea86f7d63ca8858e1cc1eb618f2c78c275c003;p=mit-scheme.git

Mark ignored binding.
---

diff --git a/tests/runtime/test-predicate-metadata.scm b/tests/runtime/test-predicate-metadata.scm
index 3827afc23..648370ae0 100644
--- a/tests/runtime/test-predicate-metadata.scm
+++ b/tests/runtime/test-predicate-metadata.scm
@@ -30,7 +30,7 @@ USA.
 
 (define-test 'non-predicate
   (lambda ()
-    (let ((np (lambda (object) #f)))
+    (let ((np (lambda (object) object #f)))
       (assert-false (predicate? np))
       (assert-type-error (lambda () (predicate->tag np)))
       (assert-type-error (lambda () (predicate-name np)))