implemented if

2014-01-20 14:34:55 +00:00
parent 097dcd6a1f
commit af588f1430
7 changed files with 149 additions and 18 deletions
--- a/lib/h2-scheme-execute-apply.adb
+++ b/lib/h2-scheme-execute-apply.adb
@ -131,6 +131,7 @@ Ada.Text_IO.Put ("NOT INTEGER FOR ADD"); Print (Interp, Car);
 			end if;
 			Num := Pointer_To_Integer(Car);

+			Ptr := Get_Cdr(Ptr);
 			while Ptr /= Nil_Pointer loop
 				-- TODO: check if car is an integer or bignum or something else.
 				--       if something else, error