implemented let

2014-01-23 15:18:47 +00:00
parent 525e300dec
commit 99c7c03d14
4 changed files with 205 additions and 101 deletions
--- a/lib/h2-scheme-execute-apply.adb
+++ b/lib/h2-scheme-execute-apply.adb
@ -302,7 +302,7 @@ Ada.Text_IO.Put_line ("TOO FEW ARGUMETNS FOR COMPARISON");
 		-- For a closure created of "(lambda (x y) (+ x y) (* x y))"
 		-- Get_Closure_Code(Func) returns "((x y) (+ x y) (* x y))"

-		-- Push a new environmen for the closure
+		-- Push a new environment for the closure
 		Interp.Environment := Make_Environment(Interp.Self, Get_Closure_Environment(Func));

 		Fbody := Get_Closure_Code(Func);