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

Fix missing imports for `(rnrs arithmetic bitwise)'.

Browse source 
* module/Makefile.am: Add module/rnrs/arithmetic/6/bitwise.scm to
  RNRS_SOURCES.
* module/rnrs/arithmetic/6/bitwise.scm: Import `(rnrs control)' and `modulo'
  from `(guile)'.
* test-suite/Makefile.am: Add r6rs-arithmetic-bitwise.test to SCM_TESTS.
This commit is contained in:
Julian Graham 2010-03-06 02:04:25 -05:00
parent bf745816f2
commit aa439b3908
3 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

1
module/Makefile.am
View file

@ -258,6 +258,7 @@ SRFI_SOURCES = \
RNRS_SOURCES = \ RNRS_SOURCES = \
rnrs/6/base.scm \ rnrs/6/base.scm \
rnrs/6/control.scm \ rnrs/6/control.scm \
rnrs/arithmetic/6/bitwise.scm \
rnrs/bytevector.scm \ rnrs/bytevector.scm \
rnrs/io/ports.scm rnrs/io/ports.scm

2
module/rnrs/arithmetic/6/bitwise.scm
View file

@ -40,12 +40,14 @@
bitwise-rotate-bit-field bitwise-rotate-bit-field
bitwise-reverse-bit-field) bitwise-reverse-bit-field)
(import (rnrs base (6)) (import (rnrs base (6))
(rnrs control (6))
(rename (only (guile) lognot (rename (only (guile) lognot
logand logand
logior logior
logxor logxor
logcount logcount
logbit? logbit?
modulo
ash) ash)
(lognot bitwise-not) (lognot bitwise-not)
(logand bitwise-and) (logand bitwise-and)

1
test-suite/Makefile.am
View file

@ -76,6 +76,7 @@ SCM_TESTS = tests/00-initial-env.test \
tests/q.test \ tests/q.test \
tests/r4rs.test \ tests/r4rs.test \
tests/r5rs_pitfall.test \ tests/r5rs_pitfall.test \
tests/r6rs-arithmetic-bitwise.test \
tests/r6rs-control.test \ tests/r6rs-control.test \
tests/r6rs-ports.test \ tests/r6rs-ports.test \
tests/rnrs-libraries.test \ tests/rnrs-libraries.test \