Update of /cvsroot/scsh/scsh-0.6/scsh
In directory usw-pr-cvs1:/tmp/cvs-serv29403
Modified Files:
syslog.scm
Log Message:
Bug fix for WITH-SYSLOG-DESTINATION:
Properly take old syslog channel into account.
Index: syslog.scm
===================================================================
RCS file: /cvsroot/scsh/scsh-0.6/scsh/syslog.scm,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -r1.7 -r1.8
*** syslog.scm 2001/07/09 18:29:26 1.7
--- syslog.scm 2001/07/11 11:21:18 1.8
***************
*** 258,263 ****
(define (with-syslog-destination ident options facility mask thunk)
(let-thread-fluid dynamic-syslog-channel
! (make-syslog-channel ident options facility mask)
thunk))
(initialize-syslog)
--- 258,282 ----
(define (with-syslog-destination ident options facility mask thunk)
(let-thread-fluid dynamic-syslog-channel
! (change-syslog-channel
! (thread-fluid dynamic-syslog-channel)
! ident options facility mask)
thunk))
+
+ ;----------------
+ ; A record type whose only purpose is to run some code when we start up an
+ ; image.
+
+ (define-record-type reinitializer :reinitializer
+ (make-reinitializer thunk)
+ reinitializer?
+ (thunk reinitializer-thunk))
+
+ (define-record-discloser :reinitializer
+ (lambda (r)
+ (list 'reinitializer (reinitializer-thunk r))))
+
+ (define-record-resumer :reinitializer
+ (lambda (r)
+ ((reinitializer-thunk r))))
(initialize-syslog)
|