(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))))
