diff --git a/ASTPlayground/MainForm.pas b/ASTPlayground/MainForm.pas index e2b8762..642e84a 100644 --- a/ASTPlayground/MainForm.pas +++ b/ASTPlayground/MainForm.pas @@ -263,7 +263,7 @@ begin FWorkspace.Align := TAlignLayout.Client; FWorkspace.ClipChildren := true; FWorkspace.OnMouseDown := WorkspaceMouseDown; - { + TAst.RegisterLibrary( procedure(const Scope: IExecutionScope) var @@ -357,7 +357,7 @@ begin ); end ); - } + ClearButtonClick(Self); end; diff --git a/Src/AST/Myc.Ast.MacroExpander.pas b/Src/AST/Myc.Ast.MacroExpander.pas index dd9f9ab..8e075f1 100644 --- a/Src/AST/Myc.Ast.MacroExpander.pas +++ b/Src/AST/Myc.Ast.MacroExpander.pas @@ -315,7 +315,7 @@ begin end; // 4. Expand the macro body using the TExpansionVisitor - var expandedBody := TExpansionVisitor.Expand(expansionScope, macroDef.Body.AsUnquoteSplicing.Expression, evaluatorProc); + var expandedBody := TExpansionVisitor.Expand(expansionScope, macroDef.Body.AsQuasiquote.Expression, evaluatorProc); // 5. Wrap the result in a MacroExpansionNode (for debugging/tracing) var macroNode := TAst.MacroExpansionNode(Node, expandedBody);