scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Optional arguments for syslog and openlog.

This commit is contained in:
mainzelm 2001-01-03 16:15:28 +00:00
parent de88c03cd2
commit 51552b6842
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
scsh/syscalls.scm
View File

@ -990,11 +990,15 @@
(define-stubless-foreign %syslog (facility level message) "scm_syslog") (define-stubless-foreign %syslog (facility level message) "scm_syslog")
(define-stubless-foreign closelog () "scm_closelog") (define-stubless-foreign closelog () "scm_closelog")
(define (openlog ident option facility) (define (openlog ident . args)
(%openlog ident option facility)) (let-optionals args ((option syslog-option/default)
(facility syslog-facility/default))
(%openlog ident option facility)))
(define (syslog facility level message) (define (syslog message . args)
(%syslog facility level (double-char #\% message))) (let-optionals args ((level syslog-level/default)
(facility syslog-facility/default))
(%syslog facility level (double-char #\% message))))
(define (double-char the-char s) (define (double-char the-char s)