From f6675ccdd7a5997def3c4656f0e2c5dbbbed1fc8 Mon Sep 17 00:00:00 2001 From: Ebus-at-dockstar Date: Fri, 25 Jul 2014 22:13:55 +0200 Subject: embed xexpr-path --- ebus-racket/ebus/layer7.rkt | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'ebus-racket/ebus/layer7.rkt') diff --git a/ebus-racket/ebus/layer7.rkt b/ebus-racket/ebus/layer7.rkt index 9393ec8..c7fb228 100644 --- a/ebus-racket/ebus/layer7.rkt +++ b/ebus-racket/ebus/layer7.rkt @@ -3,7 +3,7 @@ racket/bool racket/function xml - xexpr-path + "xexpr-path/main.rkt" "layer2.rkt") (define logger (make-logger 'ebus-layer7 (current-logger))) @@ -44,7 +44,7 @@ (define payload (layer2-ebus-paket-payload ebus-paket)) (for/list ([decoder decoders]) (decoder payload))) - (else (void (log-message logger 'warning + (else (void (log-message logger 'warning (format "Unknown Paket from source ~s: ~s" (layer2-ebus-paket-source ebus-paket) ebus-paket) #t))))) @@ -53,7 +53,7 @@ (define name (string-append paket-id "." (xexpr-path-first '((name)) field))) (define offset (string->number (xexpr-path-first '((offset)) field))) (define decoder (hash-ref decoder-table type #f)) - (cond ((false? decoder) (void (log-message logger 'warning (format "No decoder for type ~s" type)))) + (cond ((false? decoder) (void (log-message logger 'warning (format "No decoder for type ~s" type) #t))) (else (curry (car decoder) name field offset)))) (define decoder-table -- cgit v1.2.1