From 6158e7a96420e2ff57c2267080077e6106f11d03 Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Thu, 7 Feb 2002 10:11:20 +0000
Subject: [PATCH] Fixed memory leak.

---
 scsh/procobj.scm | 27 +++++++++++++++++----------
 1 file changed, 17 insertions(+), 10 deletions(-)

diff --git a/scsh/procobj.scm b/scsh/procobj.scm
index 6725bf0..e520973 100644
--- a/scsh/procobj.scm
+++ b/scsh/procobj.scm
@@ -485,7 +485,7 @@
   (next (make-placeholder))
   prev)
 
-(define reaped-proc-tail (make-placeholder))
+(define reaped-proc-tail (make-reaped-proc (make-weak-pointer #f) 'head))
 (define reaped-proc-head reaped-proc-tail)
 (define reaped-proc-push-lock (make-lock))
 (define reaped-proc-pop-lock (make-lock))          ;;; Zippy sez: pop lock!
@@ -493,22 +493,29 @@
 (define (push-reaped-proc proc)
   (obtain-lock reaped-proc-push-lock)
   (let ((push-me (make-reaped-proc (make-weak-pointer proc) reaped-proc-tail)))
-    (placeholder-set! reaped-proc-tail push-me)
-;    (add-finalizer! proc (lambda ignore (remove-reaped-proc push-me)))
-    (set! reaped-proc-tail (reaped-proc:next push-me)))
+    (placeholder-set! (reaped-proc:next reaped-proc-tail) push-me)
+    (add-finalizer! proc (make-reaped-proc-finalizer push-me))
+    (set! reaped-proc-tail push-me))
   (release-lock reaped-proc-push-lock))
 
+(define (make-reaped-proc-finalizer push-me)
+  (lambda ignore 
+    (remove-reaped-proc push-me)))
+
 (define (remove-reaped-proc reaped-proc)
   (spawn (lambda ()                 ;This is blocking, so should run by itself
-	   (placeholder-set! (reaped-proc:prev reaped-proc)
-			     (placeholder-value
-			      (reaped-proc:next reaped-proc))))
-	 "reaped-proc-removing-thread"))
+	   (set-reaped-proc:prev
+	    (placeholder-value (reaped-proc:next reaped-proc))
+	    (reaped-proc:prev reaped-proc))
+	   (set-reaped-proc:next
+	    (reaped-proc:prev reaped-proc)
+	    (reaped-proc:next reaped-proc)))
+  	 "reaped-proc-removing-thread"))
 
 (define (pop-reaped-proc)
   (obtain-lock reaped-proc-pop-lock)        ;;; pop lock pop lock pop lock!
-  (let ((pop-me (placeholder-value reaped-proc-head)))
-    (set! reaped-proc-head (reaped-proc:next pop-me))
+  (let ((pop-me (placeholder-value (reaped-proc:next reaped-proc-head))))
+    (set! reaped-proc-head pop-me)
     (release-lock reaped-proc-pop-lock)
     (weak-pointer-ref (reaped-proc:proc pop-me))))