diff options
| author | 2025-04-12 12:54:35 -0400 | |
|---|---|---|
| committer | 2025-04-12 12:54:35 -0400 | |
| commit | 638df69633e1a36079a9c53bf35b4f9090609bb4 (patch) | |
| tree | 062e091c1f0341898c1c89bda6673d6911a93b92 /srfi-259.sld | |
| parent | trigger 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.sld | 1 |
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 |
