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