Install <- as synonym for "store" for atomic ints

Author: d-torrance

M2/Macaulay2/m2/integers.m2

@@ -116,6 +116,7 @@ scan({symbol +=, symbol -=, symbol &=, symbol |=, symbol ^^=},
 
 store = method()
 store(AtomicInt, ZZ) := atomicStore
+(<- AtomicInt) := store
 
 exchange = method()
 exchange(AtomicInt, ZZ) := atomicExchange

M2/Macaulay2/packages/Macaulay2Doc/doc_atomic.m2

@@ -190,6 +190,7 @@ doc ///
   Key
     store
     (store, AtomicInt, ZZ)
+    (symbol <-, AtomicInt)
   Headline
     store the value of an atomic integer
   Usage
@@ -205,6 +206,11 @@ doc ///
       x = new AtomicInt
       store(x, 5)
       x
+    Text
+      The @TO symbol <-@ operator may also be used.
+    Example
+      x <- 7
+      x
 ///
 
 doc ///