chore: rename apply to foo or bar in the macros, for clarity with the new to be added 'apply'

Author: SuperFola

Macros.ark

@@ -19,7 +19,7 @@
 # (import std.Macros)
 # (-> "f0" f1)  # equivalent to (f1 "f0")
 # (-> "f0" f1 f2 f3) # equivalent to (f3 (f2 (f1 "f0")))
-# (-> "f0" f1 (apply _ f2) (apply _ f3))  # equivalent to (apply (apply (f1 "f0") f2) f3)
+# (-> "f0" f1 (foo _ f2) (bar _ f3))  # equivalent to (bar (foo (f1 "f0") f2) f3)
 # =end
 # @author https://github.com/SuperFola
 (macro -> (arg fn1 ...fns) {

tests/macros-tests.ark

@@ -7,7 +7,7 @@
   (+ data "-f2")))
 (let f3 (fun (data)
   (+ data "-f3")))
-(let apply (fun (data f)
+(let foo (fun (data f)
   (f data)))
 
 (let test_func (fun (a b c) (* a b c)))
@@ -19,7 +19,7 @@
   (test:case "->" {
     (test:eq (-> "f0" f1) "f0-f1")
     (test:eq (-> "f0" f1 f2 f3) "f0-f1-f2-f3")
-    (test:eq (-> "f0" f1 (apply _ f2) (apply _ f3)) "f0-f1-f2-f3") })
+    (test:eq (-> "f0" f1 (foo _ f2) (foo _ f3)) "f0-f1-f2-f3") })
 
   (test:case "partial & partial2" {
     (test:eq (test_func1 2 3) 6)