embed xexpr-path

1 files changed, 3 insertions, 3 deletions

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