>From 33c404c444d5bb5592425c2485fbd8450b95af36 Mon Sep 17 00:00:00 2001
From: Christian Kellermann <address@hidden>
Date: Sat, 1 Oct 2011 22:42:26 +0200
Subject: [PATCH] Make the procedure returned by condition-predicate accept any argument.

This fixes bug #708 as reported by John Cowan.
---
 library.scm |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/library.scm b/library.scm
index e07e9c4..477b7a4 100644
--- a/library.scm
+++ b/library.scm
@@ -4003,8 +4003,8 @@ EOF
 
 (define (condition-predicate kind)
   (lambda (c) 
-    (##sys#check-structure c 'condition)
-    (if (memv kind (##sys#slot c 1)) #t #f) ) )
+    (and (condition? c)
+         (if (memv kind (##sys#slot c 1)) #t #f)) ) )
 
 (define (condition-property-accessor kind prop . err-def)
   (let ((err? (null? err-def))
-- 
1.7.3.5