diff options
| author | Yves Fischer <yvesf-git@xapek.org> | 2014-07-26 20:15:03 +0200 |
|---|---|---|
| committer | Yves Fischer <yvesf-git@xapek.org> | 2014-07-26 20:15:03 +0200 |
| commit | 99c6eb21eb7ff9a072b87d9d64324871ea7201f1 (patch) | |
| tree | a10f6469ce898d518955ee85cf367c8a2af77b29 /ebus-racket/ebus/layer2.rkt | |
| parent | 773093acabfb84b88c37bb0342d6a8d4a6f8267a (diff) | |
| download | ebus-alt-99c6eb21eb7ff9a072b87d9d64324871ea7201f1.tar.gz ebus-alt-99c6eb21eb7ff9a072b87d9d64324871ea7201f1.zip | |
fix logging, re-enable dumper layer7 output
Diffstat (limited to 'ebus-racket/ebus/layer2.rkt')
| -rw-r--r-- | ebus-racket/ebus/layer2.rkt | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/ebus-racket/ebus/layer2.rkt b/ebus-racket/ebus/layer2.rkt index 3309c16..192f7f5 100644 --- a/ebus-racket/ebus/layer2.rkt +++ b/ebus-racket/ebus/layer2.rkt @@ -3,6 +3,8 @@ (planet bzlib/parseq:1:3)) (define logger (make-logger 'ebus-layer2 (current-logger))) +(current-logger logger) + ;; Ebus SYN (define ebus-const-syn #xaa) ;; Ebus Escape-Sequence Start @@ -83,7 +85,7 @@ (define syn ((make-reader ebus-sync #:sof? #f #:eof? #f) input-port)) (define paket ((make-reader parse-ebus-paket #:sof? #f #:eof? #f) input-port)) (cond ((not (false? syn)) - (log-message logger 'debug (format "drop ~s x SYN (~s)" syn ebus-const-syn) #t))) + (log-debug "drop ~s x SYN (~s)" syn ebus-const-syn))) (cond ((not (false? paket)) paket) ((eof-object? (peek-byte input-port)) @@ -91,7 +93,7 @@ (else ;; skip one byte (let ([byte (read-byte input-port)]) - (log-message logger 'debug (format "drop ~s 0x~x" byte byte) #t)) + (log-debug "drop ~s 0x~x" byte byte)) (read-ebus input-port)))) (provide |