mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 05:50:26 +02:00
Code Activity

* module/srfi/srfi-60.scm (bit-count): #:replace core definition.

Browse source
This commit is contained in:
Andy Wingo 2010-06-28 15:03:34 +02:00
parent 652f48c062
commit d83eb93f45
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
module/srfi/srfi-60.scm
View file

@ -1,6 +1,6 @@
;;; srfi-60.scm --- Integers as Bits ;;; srfi-60.scm --- Integers as Bits
;; Copyright (C) 2005, 2006 Free Software Foundation, Inc. ;; Copyright (C) 2005, 2006, 2010 Free Software Foundation, Inc.
;; ;;
;; This library is free software; you can redistribute it and/or ;; This library is free software; you can redistribute it and/or
;; modify it under the terms of the GNU Lesser General Public ;; modify it under the terms of the GNU Lesser General Public
@ -22,7 +22,6 @@
bitwise-xor bitwise-xor
bitwise-not bitwise-not
any-bits-set? any-bits-set?
bit-count
bitwise-if bitwise-merge bitwise-if bitwise-merge
log2-binary-factors first-set-bit log2-binary-factors first-set-bit
bit-set? bit-set?
@ -35,6 +34,7 @@
integer->list integer->list
list->integer list->integer
booleans->integer) booleans->integer)
#:replace (bit-count)
#:re-export (logand #:re-export (logand
logior logior
logxor logxor