Fixed weak self method pointer bug

Better formatting of function calls in pretty printer

Src/AST/Myc.Ast.Script.pas

@@ -398,13 +398,11 @@ begin
             begin
                 if (Length(tailNodes) <> 3) or (tailTokens[0].Kind <> tkIdentifier) then
                     raise Exception.Create('Syntax Error: ''defmacro'' requires a name, a parameter list, and a body.');
-                if elements[2].Params = nil then
-                    raise Exception.Create('Syntax Error: Expected a parameter list [...] after macro name.');
 
                 var macroName := IIdentifierNode(tailNodes[0]);
                 var macroParams := elements[2].Params;
 
-                if tailTokens[2].Kind <> tkQuote then
+                if tailTokens[2].Kind <> tkBacktick then
                     raise Exception.Create('Syntax Error: Expected a quasiquote as macro body.');
 
                 var macroBody := IQuasiQuoteNode(tailNodes[2]);
@@ -421,8 +419,6 @@ begin
             begin
                 if Length(tailNodes) <> 2 then
                     raise Exception.Create('Syntax Error: ''fn'' requires a parameter list and a body.');
-                if elements[1].Params = nil then
-                    raise Exception.Create('Syntax Error: Expected a parameter list [...] after ''fn''.');
                 Result := TAst.LambdaExpr(elements[1].Params, tailNodes[1]);
             end
             else if SameText(head.Token.Text, 'do') then
@@ -453,6 +449,7 @@ var
     expr: TExpr;
 begin
     // Handle reader macros.
+    Result.Token := FCurrentToken;
     case FCurrentToken.Kind of
         tkBacktick:
         begin
@@ -735,14 +732,11 @@ begin
     Indent;
     for arg in Node.Arguments do
     begin
-        NewLine;
+        Append(' ');
         arg.Accept(Self);
     end;
     Unindent;
 
-    if Length(Node.Arguments) > 0 then
-        NewLine;
-
     Append(')');
     Result := TDataValue.Void;
 end;
@@ -762,12 +756,11 @@ begin
     Indent;
     for arg in Node.Arguments do
     begin
-        NewLine;
+        Append(' ');
         arg.Accept(Self);
     end;
     Unindent;
-    if Length(Node.Arguments) > 0 then
-        NewLine;
+
     Append(')');
     Result := TDataValue.Void;
 end;