logging.txr


1
2
3
4
5
6
7
8
9
10
11
12
13

@(do
   (openlog "tamarind" log-pid log-daemon))
@(if debug-enable)
@  (define dbg (string))
@    (do (syslog log-debug "~a" string))
@  (end)
@(else)
@  (define dbg (string))
@  (end)
@(end)
@(define inf (string))
@  (do (syslog log-info "~a" string))
@(end)