From b64ae78af7df45c410418d17fe4f4810dfb8cf71 Mon Sep 17 00:00:00 2001
From: shivers <shivers>
Date: Fri, 13 Sep 1996 01:28:10 +0000
Subject: [PATCH] AUTOREAP-POLICY's optional argument wasn't.

---
 scsh/procobj.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scsh/procobj.scm b/scsh/procobj.scm
index 4e3ec69..d5b3e8e 100644
--- a/scsh/procobj.scm
+++ b/scsh/procobj.scm
@@ -84,7 +84,7 @@
 
 (define *autoreap-policy* 'early) ; Not exported from this module.
 
-(define (autoreap-policy  maybe-policy)
+(define (autoreap-policy . maybe-policy)
   (let ((old-policy *autoreap-policy*))
     (if (pair? maybe-policy)
 	(let ((new-policy (car maybe-policy)))