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

AUTOREAP-POLICY's optional argument wasn't.

This commit is contained in:
shivers 1996-09-13 01:28:10 +00:00
parent 241fe9c520
commit b64ae78af7
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scsh/procobj.scm
View File

@ -84,7 +84,7 @@
(define *autoreap-policy* 'early) ; Not exported from this module. (define *autoreap-policy* 'early) ; Not exported from this module.
(define (autoreap-policy maybe-policy) (define (autoreap-policy . maybe-policy)
(let ((old-policy *autoreap-policy*)) (let ((old-policy *autoreap-policy*))
(if (pair? maybe-policy) (if (pair? maybe-policy)
(let ((new-policy (car maybe-policy))) (let ((new-policy (car maybe-policy)))