small error in CHANGE-SYSLOG-CHANNEL corrected.
This commit is contained in:
parent
2883063f65
commit
83ac8d21fd
|
@ -229,13 +229,13 @@
|
||||||
(facility (list-ref-carefully rest 2 #f))
|
(facility (list-ref-carefully rest 2 #f))
|
||||||
(mask (list-ref-carefully rest 3 #f)))
|
(mask (list-ref-carefully rest 3 #f)))
|
||||||
(make-syslog-channel (or ident
|
(make-syslog-channel (or ident
|
||||||
(syslog-channel-ident channel))
|
(syslog-channel-ident ident))
|
||||||
(or options
|
(or options
|
||||||
(syslog-channel-options channel))
|
(syslog-channel-options options))
|
||||||
(or facility
|
(or facility
|
||||||
(syslog-channel-facility channel))
|
(syslog-channel-facility facility))
|
||||||
(or mask
|
(or mask
|
||||||
(syslog-channel-mask channel)))))
|
(syslog-channel-mask mask)))))
|
||||||
|
|
||||||
(define dynamic-syslog-channel
|
(define dynamic-syslog-channel
|
||||||
(make-thread-fluid
|
(make-thread-fluid
|
||||||
|
|
Loading…
Reference in New Issue