From 4639d34aeab515261ff8e21ff96170de74ff8304 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Mon, 19 Dec 2016 20:03:13 -0400
Subject: - Fixed a bug when updating the value of a STM var. - Refactored the
 tests for lux/concurrency/stm.

---
 stdlib/source/lux/concurrency/stm.lux | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'stdlib/source')

diff --git a/stdlib/source/lux/concurrency/stm.lux b/stdlib/source/lux/concurrency/stm.lux
index c3e5fad3a..914920773 100644
--- a/stdlib/source/lux/concurrency/stm.lux
+++ b/stdlib/source/lux/concurrency/stm.lux
@@ -91,7 +91,7 @@
             (:! (Var ($ +0)) _var))
       (#;Cons [(:! (Var ($ +0)) _var)
                (:! ($ +0) _original)
-               (:! ($ +0) _current)]
+               (:! ($ +0) value)]
               tx')
       (#;Cons [_var _original _current]
               (update-tx-value var value tx')))
-- 
cgit v1.2.3