[Scsh-checkins] CVS: scsh-0.6/scsh syscalls.scm,1.16,1.17

[Martin Gasbichler <mainzelm@users.sourceforge.net>]

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

Modified Files:
        syscalls.scm 
Log Message:
Optional arguments for syslog and openlog.


Index: syscalls.scm
===================================================================
RCS file: /cvsroot/scsh/scsh-0.6/scsh/syscalls.scm,v
retrieving revision 1.16
retrieving revision 1.17
diff -C2 -r1.16 -r1.17
*** syscalls.scm        2001/01/02 14:43:27     1.16
--- syscalls.scm        2001/01/03 16:15:28     1.17
***************
*** 991,999 ****
  (define-stubless-foreign closelog () "scm_closelog")
  
! (define (openlog ident option facility)
!   (%openlog ident option facility))
  
! (define (syslog facility level message)
!   (%syslog facility level (double-char #\% message)))
  
  
--- 991,1003 ----
  (define-stubless-foreign closelog () "scm_closelog")
  
! (define (openlog ident . args)
!   (let-optionals args ((option syslog-option/default)
!                      (facility syslog-facility/default))
!      (%openlog ident option facility)))
  
! (define (syslog message . args)
!   (let-optionals args ((level syslog-level/default)
!                      (facility syslog-facility/default))
!      (%syslog facility level (double-char #\% message))))