From a0ef515b4e10830d2b5939b59a3afdb402bcc638 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Thu, 21 Jan 2016 22:58:25 -0500
Subject: [PATCH] Added stub

---
 scheme/inexact.sld | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 scheme/inexact.sld

diff --git a/scheme/inexact.sld b/scheme/inexact.sld
new file mode 100644
index 00000000..2fede415
--- /dev/null
+++ b/scheme/inexact.sld
@@ -0,0 +1,16 @@
+(define-library (scheme inexact)
+  (export 
+    sin
+  )
+  (begin
+    (define-c sin
+      "(void *data, int argc, closure _, object k, object z)"
+      " make_double(d, 0.0);
+        Cyc_check_num(data, z);
+        if (type_of(z) == integer_tag) {
+          d.value = sin(((integer_type *)z)->value);
+        } else {
+          d.value = sin(((double_type *)z)->value);
+        }
+        return_closcall1(data, k, &d); ")
+))