Fix in Testcase
This commit is contained in:
@@ -696,7 +696,7 @@ begin
|
|||||||
|
|
||||||
var TestEnv := FEnvironment.CreateEnvironment;
|
var TestEnv := FEnvironment.CreateEnvironment;
|
||||||
|
|
||||||
TestEnv.Define('fib', TAst.Block(FCurrUnboundAst));
|
TestEnv.Define('fib', FCurrUnboundAst);
|
||||||
|
|
||||||
Memo1.Lines.Add('--- Naive recursive fib with AST---');
|
Memo1.Lines.Add('--- Naive recursive fib with AST---');
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user