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

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

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

Modified Files:
        syslog.scm 
Log Message:
Correcting my mistake - last commit was bad.


Index: syslog.scm
===================================================================
RCS file: /cvsroot/scsh/scsh-0.6/scsh/syslog.scm,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -r1.5 -r1.6
*** syslog.scm  2001/06/26 13:19:08     1.5
--- syslog.scm  2001/06/27 15:29:37     1.6
***************
*** 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
--- 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