Browse Source

fixed few things, now just extends test fails

Roberto Saccon 17 years ago
parent
commit
e4297bf3c8
1 changed files with 3 additions and 9 deletions
  1. 3 9
      src/erlydtl/erlydtl_server.erl

+ 3 - 9
src/erlydtl/erlydtl_server.erl

@@ -197,8 +197,8 @@ compile([H | T], ModuleName, FunctionName, RelDir, Ext) ->
 		    {[parse_transform(X) ||  X <- List0], Args0};
 		{inherited, List0, Arg0, _} ->
 			{List0, Arg0}
-	end,    
-	{[VarPrint]=Args1, BodyAST} = case Args of 
+	end,   
+	{Args1, BodyAST} = case Args of 
 	    []  ->
 	        {[], [erl_syntax:list(List)]};
 	    _ ->
@@ -213,13 +213,7 @@ compile([H | T], ModuleName, FunctionName, RelDir, Ext) ->
         	    [erl_syntax:list(List)],
         	    Args),
         	{[Var], BodyAST0}
-	end, 
-	%% -------------------------------------------------------------
-    %% Trace = erl_syntax:application(erl_syntax:atom(io), 
-    %%         erl_syntax:atom(format),
-    %%         [erl_syntax:string("TEMPLATE-TRACE: ~p~n"), erl_syntax:list([VarPrint])]),   
-    %% ClauseAST = erl_syntax:clause(Args1, none, [Trace | BodyAST]),
-    %% --------------------------------------------------------------
+	end,
 	ClauseAST = erl_syntax:clause(Args1, none, BodyAST),
 	FuncAST = erl_syntax:function(erl_syntax:atom(FunctionName), [ClauseAST]),
 	[ModAST, CmpAST] = [erl_syntax:attribute(erl_syntax:atom(X), [erl_syntax:atom(Y)]) ||