diff options
Diffstat (limited to 'bpf-assembler.scm')
| -rw-r--r-- | bpf-assembler.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/bpf-assembler.scm b/bpf-assembler.scm index c626bee..207b271 100644 --- a/bpf-assembler.scm +++ b/bpf-assembler.scm @@ -14,10 +14,11 @@ ;; Labels are jump offset from *next* instruction (a little surprising perhaps) (define (label? x) (and (integer? x) (<= 0 x 256))) +(use-for-syntax srfi-1 matchable) + ;; Basic idea stolen from sixtyfive-oh-two. Thanks, Felix! ;) (begin-for-syntax (import chicken) - (use srfi-1 matchable) (define addrmodes '()) (define opcodes '()) @@ -207,7 +208,7 @@ (define (write-decimal-bpf-bytecode code #!optional (port (current-output-port)) raw-code?) - (let ((code (bitstring-of-any code))) + (let ((code (->bitstring code))) (unless raw-code? (fprintf port "~A\n" (quotient (bitstring-length code) 64))) (let lp ((code code)) |