feat(syntax)!: using 'macro' instead of '$' to define macros

Author: SuperFola

Macros.ark

@@ -1,5 +1,5 @@
 # internal, do not use
-($ __replace_all_placeholders_with (replacement x ...xs) {
+(macro __replace_all_placeholders_with (replacement x ...xs) {
   ($if (empty? xs)
     ($if (= "_" ($repr x))
       replacement
@@ -12,33 +12,33 @@
         x
         (__replace_all_placeholders_with replacement ...xs) })) })
 
-($ -> (arg fn1 ...fns) {
+(macro -> (arg fn1 ...fns) {
   ($if (= "Symbol" ($type fn1))
-    ($ call (fn1 arg))
-    ($ call ((__replace_all_placeholders_with arg ...fn1))))
+    (macro call (fn1 arg))
+    (macro call ((__replace_all_placeholders_with arg ...fn1))))
   ($if (> (len fns) 0)
     (-> call ...fns)
     call) })
 
 # internal, do not use
-($ __suffix-dup (sym x) {
+(macro __suffix-dup (sym x) {
   ($if (> x 1) (__suffix-dup sym (- x 1)))
   ($symcat sym x) })
 
-($ partial (func ...defargs) {
-  ($ bloc (__suffix-dup a (- ($argcount func) (len defargs))))
+(macro partial (func ...defargs) {
+  (macro bloc (__suffix-dup a (- ($argcount func) (len defargs))))
   (fun (bloc) (func ...defargs bloc))
   ($undef bloc) })
 
-($ __count_placeholders (acc x ...xs) ($if (empty? xs)
+(macro __count_placeholders (acc x ...xs) ($if (empty? xs)
     ($if (= "_" ($repr x))
       (+ 1 acc)
       acc)
     ($if (= "_" ($repr x))
       (__count_placeholders (+ 1 acc) ...xs)
       (__count_placeholders acc ...xs))))
 
-($ __replace_placeholders (replacements x ...xs) {
+(macro __replace_placeholders (replacements x ...xs) {
   ($if (empty? xs)
     ($if (= "_" ($repr x))
       (head replacements)
@@ -52,14 +52,14 @@
 
         (__replace_placeholders replacements ...xs) })) })
 
-($ partial2 (call ...args) {
-  ($ length (__count_placeholders 0 ...args))
-  ($ arg_bloc (__suffix-dup arg length))
-  ($ all_args (__replace_placeholders [arg_bloc] ...args))
+(macro partial2 (call ...args) {
+  (macro length (__count_placeholders 0 ...args))
+  (macro arg_bloc (__suffix-dup arg length))
+  (macro all_args (__replace_placeholders [arg_bloc] ...args))
   (fun (arg_bloc) (call all_args)) })
 
-($ unless (cond ...body)
+(macro unless (cond ...body)
   (if (not cond) ...body))
 
-($ until (cond body)
+(macro until (cond body)
   (while (not cond) body))

Switch.ark

@@ -13,7 +13,7 @@
 #     _ (print "default"))
 # =end
 # @author https://github.com/SuperFola
-($ switch (value case then ...cases) {
+(macro switch (value case then ...cases) {
   ($if (= "_" ($repr case))
     then
     (if (= value case)

Testing.ark

@@ -92,7 +92,7 @@
 #         (test:eq 1 2 "1 is 2, this should fail")})
 # =end
 # @author https://github.com/SuperFola
-($ test:case (_desc _body) {
+(macro test:case (_desc _body) {
   (mut _old_pointer testing:_suite.case_pointer)
 
   # Add the test name to a pile so that we can nicely print all the case names later.
@@ -192,7 +192,7 @@
 #     (test:expect (return_true) "return true"})
 # =end
 # @author https://github.com/SuperFola
-($ test:expect (_cond ..._desc) {
+(macro test:expect (_cond ..._desc) {
   (if (!= true ($as-is _cond))
     (testing:_report_error true ($as-is _cond) "true" ($repr _cond) _desc)
     (testing:_report_success)) })
@@ -207,7 +207,7 @@
 #     (test:eq 5 (foo) "foo should return 5")})
 # =end
 # @author https://github.com/SuperFola
-($ test:eq (_expected _expr ..._desc) {
+(macro test:eq (_expected _expr ..._desc) {
   (if (= ($as-is _expected) ($as-is _expr))
     (testing:_report_success)
     (testing:_report_error ($as-is _expected) ($as-is _expr) ($repr _expected) ($repr _expr) _desc)) })
@@ -221,7 +221,7 @@
 #     (test:neq 0 (my_function 1 2 3))})
 # =end
 # @author https://github.com/SuperFola
-($ test:neq (_unexpected _value ..._desc) {
+(macro test:neq (_unexpected _value ..._desc) {
   (if (!= ($as-is _unexpected) ($as-is _value))
     (testing:_report_success)
     (testing:_report_error ($as-is _unexpected) ($as-is _value) ($repr _unexpected) ($repr _value) _desc)) })
@@ -237,7 +237,7 @@
 #     (test:eq 128 (* 8 16))})
 # =end
 # @author https://github.com/SuperFola
-($ test:suite (_name _body) {
+(macro test:suite (_name _body) {
   (set testing:_suite (testing:_make_suite ($repr _name)))
 
   (let ($symcat _name "-output") (testing:_runner