:= operator

Scheme+.scm

@@ -118,9 +118,9 @@
 	     def
 	     $bracket-apply$
 	     $bracket-apply$next
-	     <- ←
+	     <- ← :=
 	     -> →
-	     <+ ⥆
+	     <+ ⥆ :+
 	     +> ⥅
 	     declare
 	     $> $+>

assignment.scm

@@ -240,6 +240,20 @@
     ((_ var ...) (<- var ...))))
 
 
+;; scheme@(guile-user)> {x :+ 7}
+;; scheme@(guile-user)> x
+;; $1 = 7
+;; scheme@(guile-user)> {x := "hello"}
+;; scheme@(guile-user)> x
+;; $2 = "hello"
+
+(define-syntax :=
+
+  (syntax-rules ()
+
+    ((_ var ...) (<- var ...))))
+
+
 
 ;; (declare x y z)
 ;;  {(x y z) <v (values 2 4 5)}

def.scm

@@ -172,6 +172,22 @@
      ((_ var ...) (<+ var ...))))
 
 
+
+;; scheme@(guile-user)> {x :+ 7}
+;; scheme@(guile-user)> x
+;; $1 = 7
+;; scheme@(guile-user)> {x := "hello"}
+;; scheme@(guile-user)> x
+;; $2 = "hello"
+
+(define-syntax :+
+  (syntax-rules ()
+
+    ((_ var ...) (<+ var ...))))
+
+
+
+
 ;; > {(values 2 4 5) +> (x y z) +> (u v w) +> (a b c)} 
 ;; 2
 ;; 4

operation-redux.scm

@@ -17,8 +17,8 @@
 
 	;;(list 'dummy) ;; can keep the good order in case of non left-right assocciative operators.(odd? reverse them) 
 
-    (<- -> ← → <v v> ⇜ ⇝)
-    (<+ +> ⥆ ⥅)
+    (<- -> ← → := <v v> ⇜ ⇝)
+    (<+ +> ⥆ ⥅ :+)
     )
 
   )