From 0762bd65677c1ccf4bb1f29c1a68a43da0519153 Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Sun, 28 Jun 2015 04:13:12 +0900
Subject: [PATCH] update etc/tak.scm

---
 etc/tak.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/etc/tak.scm b/etc/tak.scm
index 4255f6e9..18c36372 100644
--- a/etc/tak.scm
+++ b/etc/tak.scm
@@ -5,8 +5,9 @@
 (define (time f)
   (let ((start (current-jiffy)))
     (f)
-    (/ (- (current-jiffy) start)
-       (jiffies-per-second))))
+    (inexact
+     (/ (- (current-jiffy) start)
+        (jiffies-per-second)))))
 
 (define (tak x y z)
   (if (> x y)