From 1c8effbcd2e606d5bc28314915daa718f4878121 Mon Sep 17 00:00:00 2001
From: Koz Ross <koz.ross@retro-freedom.nz>
Date: Fri, 10 Feb 2017 17:59:08 +1300
Subject: [PATCH] Removing all need for (scheme inexact)

---
 srfi/60.scm | 2 +-
 srfi/60.sld | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/srfi/60.scm b/srfi/60.scm
index 89aaf116..80fe92d7 100644
--- a/srfi/60.scm
+++ b/srfi/60.scm
@@ -125,7 +125,7 @@
 (define first-set-bit log2-binary-factors)
 
 (define (logbit? index n)
-  (logtest (exact (expt 2 index)) n))
+  (logtest (ash 1 index) n))
 
 (define bit-set? logbit?)
 
diff --git a/srfi/60.sld b/srfi/60.sld
index 8ab61128..52f018a4 100644
--- a/srfi/60.sld
+++ b/srfi/60.sld
@@ -10,8 +10,8 @@
 ;;;; doesn't have them yet. This will need to be modified accordingly once 
 ;;;; this support is provided.
 (define-library (srfi 60)
-  (import (scheme base)
-          (scheme inexact))
+  (import 
+    (scheme base))
   (export
     any-bits-set? arithmetic-shift ash
     bit-count bit-field bit-set? bitwise-and bitwise-if bitwise-ior