From 19ad46697b79303426f574db2ec47a96f46bc667 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Sun, 24 Jan 2016 22:34:00 -0500
Subject: [PATCH] Added exact and inexact

---
 scheme/base.sld | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/scheme/base.sld b/scheme/base.sld
index 71adc40b..fd47814d 100644
--- a/scheme/base.sld
+++ b/scheme/base.sld
@@ -96,6 +96,8 @@
     ceiling
     truncate
     round
+    exact
+    inexact
   )
   (begin
     ;; Features implemented by this Scheme
@@ -664,4 +666,8 @@
   (define-c round
     "(void *data, int argc, closure _, object k, object z)"
     " return_exact_double_op(data, k, round, z); ")
+  (define exact truncate)
+  (define-c inexact
+    "(void *data, int argc, closure _, object k, object z)"
+    " return_inexact_double_op(data, k, (double), z); ")
 ))