hrm

Author: andrew-johnson-4

PLUGINS/FRONTEND/LSTS/lsts-parse.lsts

@@ -1080,13 +1080,13 @@ let lsts-parse-small-expression(tokens: List<Token>): Tuple<AST,List<Token>> = (
          tokens = rhs-rest.second;
          lsts-parse-expect(c"}", tokens); tokens = tail(tokens);
          base = mk-app(
-            Var{ c"macro::while", with-location(mk-token("macro::while"),loc) },
-            mk-cons(
-               c-rest.first,
-               mk-app(
-                  Var{ c"scope", with-location(mk-token("scope"),loc) },
-                  rhs-rest.first
-               )
+            mk-app(
+               Var{ c"while", with-location(mk-token("while"),loc) },
+               c-rest.first
+            ),
+            mk-app(
+               Var{ c"scope", with-location(mk-token("scope"),loc) },
+               rhs-rest.first
             )
          );         
       );

SRC/std-apply-macro.lsts

@@ -47,6 +47,7 @@ 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("Apply Macro \{mname} \{margs}\nResult: \{result}\n");
    (tctx, result)
 );