~dieggsy/srfi-143

98f7f27ee41a65c330ba56d23fa20c6718c2f683 — Cthulhu Ftaghn 3 years ago fabc94a
Fix for issue 3

https://github.com/diamond-lizard/srfi-143/issues/3
2 files changed, 2 insertions(+), 1 deletions(-)

M srfi-143/srfi-143-impl.scm
M srfi-143/srfi-143.scm
M srfi-143/srfi-143-impl.scm => srfi-143/srfi-143-impl.scm +1 -1
@@ 61,7 61,7 @@
          (fxand (fxnot mask) n1)))

(define (fxbit-set? index n)
  (not (fxzero? (fxand (fxarithmetic-shift-left 1 index) n))))
  (bit->boolean n index))

(define (fxcopy-bit index to bool)
  (if bool

M srfi-143/srfi-143.scm => srfi-143/srfi-143.scm +1 -0
@@ 19,6 19,7 @@
          fxfirst-set-bit fxbit-field
          fxbit-field-rotate fxbit-field-reverse)

  (import (only (chicken bitwise) bit->boolean))
  (import (rename (only (chicken fixnum)
                        fxmax fxmin fx= fx< fx> fx<= fx>= fx/ fxlen fxrem
                        fxshl fxshr fixnum-bits