From ae22ecffbec504fc2eb2508452394db46e7145dd Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Sat, 9 Jan 2016 23:02:57 -0500
Subject: [PATCH] Added a non-working stub

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

diff --git a/scheme/time.sld b/scheme/time.sld
new file mode 100644
index 00000000..b67287ab
--- /dev/null
+++ b/scheme/time.sld
@@ -0,0 +1,12 @@
+(define-library (scheme time)
+  (export 
+    current-jiffy ;; TODO: This is just temporary, of course
+  )
+  (import (scheme base) 
+  )
+  (begin
+    (define-c prim-test 
+      "(void *data, int argc, closure _, object k, object arg1, object arg2)"
+      " return_closcall1(data,  k, arg1); ")
+    ;; End FFI
+  ))