use unsafe cas!

aturon · May 3, 2012 · 2f14a90 · 2f14a90
1 parent 8d364e2
commit 2f14a90
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/by-hand/treiber-stack.rkt b/by-hand/treiber-stack.rkt
@@ -35,7 +35,7 @@
     (let retry ()
       (define snapshot (unsafe-unbox* head))
       (update-node node _x snapshot)
-      (unless (box-cas! head snapshot node)
+      (unless (unsafe-box*-cas! head snapshot node)
         (retry)))))
 
 (define (push s x)
@@ -44,7 +44,7 @@
   (let retry ()
     (define snapshot (unsafe-unbox* head))
     (update-node node x snapshot)
-    (unless (box-cas! head snapshot node)
+    (unless (unsafe-box*-cas! head snapshot node)
       (retry))))
 
 (define (pop s