(define-module (utils bits))


(use-modules
 ;; SRFI 60: procedures for treating integers as bits
 (srfi srfi-60))


(define-public bits-left-shift
  (lambda (bits count)
    (arithmetic-shift bits count)))


(define-public bits-right-shift
  (lambda (bits count)
    (arithmetic-shift bits (* -1 count))))
