From 28aa84c52d93586a0571930568c2d5e5a17090af Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Wed, 1 Mar 2017 18:59:19 -0500
Subject: [PATCH] WIP

---
 atomics.sld | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 atomics.sld

diff --git a/atomics.sld b/atomics.sld
new file mode 100644
index 00000000..f26b74fe
--- /dev/null
+++ b/atomics.sld
@@ -0,0 +1,15 @@
+(define-library (atomics)
+  (export
+    atomic:get-fx
+    atomic:fx++
+  )
+  (include-c-header "<ck_pr.h>")
+  (begin
+    ;TODO: needed, unfortunately (define tmp 1)
+    (define-c atomic:fx++
+      "(void *data, int argc, closure _, object k, object num)"
+      " Cyc_check_fixnum(data, num);
+        ck_pr_add_ptr(&num, 2);
+        return_closcall1(data, k, num); ")
+  ))
+