Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-18 21:29:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Removing all need for (scheme inexact)

Browse source
This commit is contained in:
Koz Ross 2017-02-10 17:59:08 +13:00
parent a024126f7b
commit 1c8effbcd2
2 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
srfi/60.scm
View file

@ -125,7 +125,7 @@
(define first-set-bit log2-binary-factors) (define first-set-bit log2-binary-factors)
(define (logbit? index n) (define (logbit? index n)
(logtest (exact (expt 2 index)) n)) (logtest (ash 1 index) n))
(define bit-set? logbit?) (define bit-set? logbit?)

4
srfi/60.sld
View file

@ -10,8 +10,8 @@
;;;; doesn't have them yet. This will need to be modified accordingly once ;;;; doesn't have them yet. This will need to be modified accordingly once
;;;; this support is provided. ;;;; this support is provided.
(define-library (srfi 60) (define-library (srfi 60)
(import (scheme base) (import
(scheme inexact)) (scheme base))
(export (export
any-bits-set? arithmetic-shift ash any-bits-set? arithmetic-shift ash
bit-count bit-field bit-set? bitwise-and bitwise-if bitwise-ior bit-count bit-field bit-set? bitwise-and bitwise-if bitwise-ior