ok

Author: andrew-johnson-4

PLATFORM/C/LIB/common-macros.lsts

@@ -68,5 +68,5 @@ typed macro macro::while(cond: lazy, body: lazy): lazy = (
 );
 
 typed macro macro::assert(cond: lazy): lazy = (
-   if not(cond) then fail("Assertion Failed", macro::location(here))
+   if not(cond) then fail("Assertion Failed", macro::location(cond))
 );

PLUGINS/FRONTEND/LSTS/lsts-parse.lsts

@@ -525,13 +525,14 @@ let lsts-make-maybe-var(tokens: List<Token>): Tuple<AST,List<Token>> = (
       lsts-parse-lit(tokens)
    } else {
       if not(non-zero(tokens)) { lsts-parse-expect(c"Identifier", tokens); };
+      let loc = head(tokens).location;
       let base = ASTEOF;
       if lsts-is-lit(head(tokens).key) {
          base = lsts-make-lit(head(tokens));
          tokens = tail(tokens);
       } else {
          (let var-name, tokens) = lsts-parse-identifier(tokens);
-         base = mk-var(var-name);
+         base = with-location(mk-var(var-name), loc);
       };
       Tuple { base, tokens }
    }

tests/unit/ast-macros.lsts.out

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