Commits

Anonymous committed 277f7ec

direct bitstring->integer-big call

  • Participants
  • Parent commits 5e049b8
  • Tags 1.33

Comments (0)

Files changed (1)

File bitstring.scm

       (()
        tmp)
       (((value 8 bitstring) (rest bitstring))
-       (u8vector-set! tmp index (bitstring->integer value 'big))
+       (u8vector-set! tmp index (bitstring->integer-big value))
        (loop rest (add1 index) tmp))
       (((value bitstring))
        (let ((len (bitstring-length value))
-             (byte (bitstring->integer value 'big)))
+             (byte (bitstring->integer-big value)))
          (u8vector-set! tmp index (if (eq? zero-extending 'left)
                                     byte
                                     (fxshl byte (- 8 len))))