From ad2bb6db82a463c52b34d6c9fdba95beb6625cc7 Mon Sep 17 00:00:00 2001
From: Peter Bex <peter@more-magic.net>
Date: Tue, 27 Aug 2013 22:32:50 +0200
Subject: Update for latest bitstring version

---
 bpf-assembler.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'bpf-assembler.scm')

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))
-- 
cgit v1.2.3