aboutsummaryrefslogtreecommitdiffstats
path: root/srfi-259.sld
diff options
context:
space:
mode:
authorGravatar Peter McGoron 2025-04-12 12:54:35 -0400
committerGravatar Peter McGoron 2025-04-12 12:54:35 -0400
commit638df69633e1a36079a9c53bf35b4f9090609bb4 (patch)
tree062e091c1f0341898c1c89bda6673d6911a93b92 /srfi-259.sld
parenttrigger a manual minor garbage collection to try and smoke out stack corruption (diff)
test predicates on non-procedures0.9.0
Diffstat (limited to 'srfi-259.sld')
-rw-r--r--srfi-259.sld1
1 files changed, 1 insertions, 0 deletions
diff --git a/srfi-259.sld b/srfi-259.sld
index 20a78be..7a3dfb2 100644
--- a/srfi-259.sld
+++ b/srfi-259.sld
@@ -47,6 +47,7 @@
(set! predicate?
(lambda (proc)
(cond
+ ((not (procedure? proc)) #f)
((get-mapping proc) => (cut fxmapping-contains? <> id))
(else #f))))
(set! accessor