From 2ccc95ff78945fc0f8a58a755f195fcf0a7be009 Mon Sep 17 00:00:00 2001 From: shivers Date: Wed, 25 Oct 1995 07:44:25 +0000 Subject: [PATCH] filter-weak-ptr-list had args to reduce in wrong order. --- scsh/procobj.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/scsh/procobj.scm b/scsh/procobj.scm index 019141b..471eae0 100644 --- a/scsh/procobj.scm +++ b/scsh/procobj.scm @@ -258,11 +258,12 @@ (define reaped-procs '()) ; Reaped, but not yet waited. (define (filter-weak-ptr-list pred lis) - (reverse (reduce '() (lambda (wptr result) + (reverse (reduce (lambda (wptr result) (let ((val (weak-pointer-ref wptr))) (if (and val (pred val)) (cons wptr result) result))) + '() lis))) ;;; Add a newly-reaped proc to the list.