[Scsh-checkins] CVS: scsh-0.6/scsh syslog.scm,1.4,1.5

[Andreas Bernauer <interp@users.sourceforge.net>]

Update of /cvsroot/scsh/scsh-0.6/scsh
In directory usw-pr-cvs1:/tmp/cvs-serv1606

Modified Files:
        syslog.scm 
Log Message:
small error in CHANGE-SYSLOG-CHANNEL corrected.


Index: syslog.scm
===================================================================
RCS file: /cvsroot/scsh/scsh-0.6/scsh/syslog.scm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** syslog.scm  2001/06/22 15:50:10     1.4
--- syslog.scm  2001/06/26 13:19:08     1.5
***************
*** 230,240 ****
        (mask (list-ref-carefully rest 3 #f)))
      (make-syslog-channel (or ident
!                            (syslog-channel-ident channel))
                         (or options
!                            (syslog-channel-options channel))
                         (or facility
!                            (syslog-channel-facility channel))
                         (or mask
!                            (syslog-channel-mask channel)))))
  
  (define dynamic-syslog-channel
--- 230,240 ----
        (mask (list-ref-carefully rest 3 #f)))
      (make-syslog-channel (or ident
!                            (syslog-channel-ident ident))
                         (or options
!                            (syslog-channel-options options))
                         (or facility
!                            (syslog-channel-facility facility))
                         (or mask
!                            (syslog-channel-mask mask)))))
  
  (define dynamic-syslog-channel