From 69468b14808bc927c4f23b8d22bb462f6de45f52 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Thu, 2 Mar 2017 20:31:29 -0500
Subject: [PATCH] WIP

---
 atomics.sld | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/atomics.sld b/atomics.sld
index f26b74fe..573cf896 100644
--- a/atomics.sld
+++ b/atomics.sld
@@ -1,15 +1,15 @@
 (define-library (atomics)
   (export
-    atomic:get-fx
-    atomic:fx++
+    atomic:get
+    atomic:set!
   )
   (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); ")
+    ;TODO: won't work, ints are immutable
+    ;(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); ")
   ))