From 79ea86f7d63ca8858e1cc1eb618f2c78c275c003 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 21 Apr 2017 15:03:49 -0700
Subject: [PATCH] Mark ignored binding.

---
 tests/runtime/test-predicate-metadata.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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