now if it would only deploy

Author: andrew-johnson-4

PLATFORM/C/LIB/common-macros.lsts

@@ -8,7 +8,7 @@ typed macro macro::set(lhs: lazy, rhs: lazy): lazy = (
 );
 
 typed macro macro::set(base index: macro::lhs-index, rhs: lazy): lazy = (
-   $"set[]"( $"macro::lhs-as-rhs"(base), index, rhs )
+   $"set[]"( base, index, rhs )
 );
 
 #typed macro macro::set(base field: macro::lhs-field, rhs: lazy): lazy = (

SRC/std-apply-macro-candidates.lsts

@@ -9,11 +9,9 @@ let std-apply-macro-candidates(tctx: TContext?, mname: CString, margs: AST, cand
    let t = ASTEOF;
    for Tuple{ctype=first, second:Abs{mlhs=lhs,rhs:App{left:Lit{key:c":"},right:App{mrhs=left}}}} in candidates {
       if not(non-zero(t)) {
-         print("Apply Candidate \{mname}\nLeft: \{mlhs}\nRight: \{margs}\n");
          (let new-tctx, let mctx) = std-try-destructure-macro(tctx, margs, ctype, mlhs);
          if mctx.is-some then mctx = union(mctx, Some{extract-uuids(mrhs)});
          if mctx.is-some then t = with-location-preserve(substitute(mctx.get-or-panic, mrhs), margs.location);
-         if not(non-zero(t)) then print("Rejected Candidate \{mname} \{mlhs}\n");
       }
    };
    (tctx, t)

SRC/std-apply-macro.lsts

@@ -11,7 +11,6 @@ let std-apply-macro(tctx: Maybe<TContext>, mname: CString, margs: AST): (TContex
 let std-apply-macro-weak(tctx: Maybe<TContext>, mname: CString, margs: AST): (TContext?, AST) = std-apply-macro(tctx, mname, margs, false);
 
 let std-apply-macro(tctx: Maybe<TContext>, mname: CString, margs: AST, strong: Bool): (TContext?, AST) = (
-   print("Apply Macro \{mname} \{margs}\n");
    let row = index-macro-table.lookup(mname, [] :: List<(Type,Type,AST)>);
    let peep-holes = TAny;
    let peeped = TAny;
@@ -48,7 +47,6 @@ let std-apply-macro(tctx: Maybe<TContext>, mname: CString, margs: AST, strong: B
    };
    (tctx, let result) = std-apply-macro-candidates(tctx, mname, margs, candidates);
    if strong && not(non-zero(result)) then exit-error("Failed to Apply Macro: \{mname}", margs);
-   print("Applied Macro \{mname} \{margs}\nResult: \{result}\n");
    if strong then (tctx, result) = std-infer-expr(tctx, result, false, Used, TAny);
    (tctx, result)
 );

tests/unit/ast-macros.lsts.out

@@ -0,0 +1 @@
+[3,4]