diff options
Diffstat (limited to 'ebus-racket/dumper.rkt')
| -rwxr-xr-x | ebus-racket/dumper.rkt | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/ebus-racket/dumper.rkt b/ebus-racket/dumper.rkt index 62ca64e..95081d1 100755 --- a/ebus-racket/dumper.rkt +++ b/ebus-racket/dumper.rkt @@ -1,10 +1,11 @@ #! /usr/bin/env racket #lang racket/base -(require racket/cmdline - racket/tcp - racket/pretty - "ebus/layer2.rkt" - "ebus/layer7.rkt") +(require + racket/cmdline + racket/tcp + racket/pretty + "ebus/layer2.rkt" + "ebus/layer7.rkt") ;(define verbose? (make-parameter #f)) (define connect-host? (make-parameter null)) @@ -38,9 +39,9 @@ (define (read-ebus-loop7 input-port) (let ([fields (layer7-read-ebus (current-input-port))]) - ;(if (not (void? fields)) - ;(pretty-print fields) - ;(display "")) + (if (not (void? fields)) + (pretty-print fields) + (display "")) (cond ((not (eof-object? fields)) (read-ebus-loop7 input-port))))) (if (layer7?) |