scsh-conservatory
/
scsh-0.5
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

filter-weak-ptr-list had args to reduce in wrong order.

This commit is contained in:
shivers 1995-10-25 07:44:25 +00:00
parent 7d810091d8
commit 2ccc95ff78
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
scsh/procobj.scm
View File

@ -258,11 +258,12 @@
(define reaped-procs '()) ; Reaped, but not yet waited. (define reaped-procs '()) ; Reaped, but not yet waited.
(define (filter-weak-ptr-list pred lis) (define (filter-weak-ptr-list pred lis)
(reverse (reduce '() (lambda (wptr result) (reverse (reduce (lambda (wptr result)
(let ((val (weak-pointer-ref wptr))) (let ((val (weak-pointer-ref wptr)))
(if (and val (pred val)) (if (and val (pred val))
(cons wptr result) (cons wptr result)
result))) result)))
'()
lis))) lis)))
;;; Add a newly-reaped proc to the list. ;;; Add a newly-reaped proc to the list.