Version 7.9.2 := operator

main.rkt

@@ -55,10 +55,10 @@
 		 for-basic
 		 for-basic/break
 		 reversed
-		 <- ←
+		 <- ← :=
 		 -> ;; can conflict with typed racket
 		 →  ;; can conflict with typed racket
-		 <+ ⥆
+		 <+ ⥆ :+
 		 +> ⥅
 		 declare
 		 $>

src/SRFI-105.scm

@@ -103,9 +103,14 @@
         ((or (eq? c #\)) (eq? c #\]) (eq? c #\}))
           (read-char port)
           (read-error "Bad closing character"))
-        (#t
+
+	(#t
+
           (let ((datum (my-read port)))
-            (cond
+
+	    (cond 
+
+	     ;; here we got chars ... (not symbols)
 	     ;; processing period . is important for functions with variable numbers of parameters: (fct arg1 . restargs)
 	     ((eq? datum (string->symbol (string #\.))) ;; only this one works with Racket Scheme
                ;;((eq? datum '.) ;; do not works with Racket Scheme
@@ -121,9 +126,18 @@
                      (#t
                        (read-char port)
                        datum2))))
-               (#t
-                   (cons datum
-                     (my-read-delimited-list my-read stop-char port)))))))))
+
+	     (#t
+	      ;; here we get a symbolic scheme expression
+	      (let ((datum2 (cons datum
+				  (my-read-delimited-list my-read stop-char port))))
+
+		;; (when (and (list? datum2)
+		;; 	   (not (null? datum2))
+		;; 	   (equal? (car datum2) 'if))
+		;;       (error "find an IF in datum2:" datum2))
+
+		datum2))))))))
 
 
 

src/assignment.rkt

@@ -260,6 +260,14 @@
 
 
 
+(define-syntax :=
+
+  (syntax-rules ()
+
+    ((_ var ...) (<- var ...))))
+
+
+
 ;; (declare x y z)
 ;;  {(x y z) <v (values 2 4 5)}
 ;; > (list x y z)

src/def.scm

@@ -174,6 +174,14 @@
      ((_ var ...) (<+ var ...))))
 
 
+
+(define-syntax :+
+  (syntax-rules ()
+
+    ((_ var ...) (<+ var ...))))
+
+
+
 ;; > {(values 2 4 5) +> (x y z) +> (u v w) +> (a b c)} 
 ;; 2
 ;; 4

src/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> ⇜ ⇝)
+    (<+ +> ⥆ ⥅ :+)
     )
 
   )