compiling

Author: andrew-johnson-4

PLATFORM/C/LIB/common-macros.lsts

@@ -40,7 +40,7 @@ typed macro macro::lhs-index(base: lazy, index: lazy): lazy = (
 );
 
 typed macro macro::lhs-index(base field: macro::lhs-field, index: lazy): lazy = (
-   $"macro::concat"($".", field); index
+   $"macro::concat"($".", field)(base); index
 );
 
 typed macro macro::for(item: lazy, iter: List<?>, loop: lazy): lazy = (

SRC/std-apply-macro.lsts

@@ -18,7 +18,6 @@ let std-apply-macro-concat(tctx: Maybe<TContext>, mname: CString, margs: AST): (
 );
 
 let std-apply-macro(tctx: Maybe<TContext>, mname: CString, margs: AST, strong: Bool): (TContext?, AST) = (
-   print("Apply \{mname} \{margs}\n");
    let result = ASTEOF;
    if mname==c"macro::concat" then (tctx, result) = std-apply-macro-concat(tctx, mname, margs)
    else {
@@ -60,7 +59,6 @@ let std-apply-macro(tctx: Maybe<TContext>, mname: CString, margs: AST, strong: B
    };
    if strong && not(non-zero(result)) then exit-error("Failed to Apply Macro: \{mname}\nArgs: \{margs}\n", margs);
    if strong then (tctx, result) = std-infer-expr(tctx, result, false, Used, TAny);
-   print("Applied \{mname} \{margs}\nResult \{result}\n");
    (tctx, result)
 );
 

tests/unit/ast-macros.lsts.out

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