Mark ignored binding.

diff --git a/tests/runtime/test-predicate-metadata.scm b/tests/runtime/test-predicate-metadata.scm
index 3827afc23c3df86c41305b0cd26655da70928626..648370ae0309462ae87bd8116eea7765cc7ea7a0 100644 (file)
--- 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)))