Commits

Anonymous committed 5e049b8

export some useful hidden function

  • Participants
  • Parent commits 0061da4

Comments (0)

Files changed (1)

File bitstring.scm

    blob->bitstring
    bitstring-read
    bitstring-share
+   bitstring-create
    bitstring-reserve
    bitstring=?
    bitstring-append
 (define (space-required n alignment)
   (+ (quotient n 8) (if (zero? (remainder n 8)) 0 1)))
 
+(define (bitstring-create)
+  (bitstring-reserve 128))
+
 (define (bitstring-reserve size-in-bits)
   (let ((size (space-required size-in-bits 8)))
     (make-bitstring 0 0 (make-u8vector size 0) u8vector-ref u8vector-set!)))