added more code for evaluation

2013-12-18 14:58:46 +00:00
parent d02c6ccb32
commit 3c3d0e16a7
2 changed files with 383 additions and 102 deletions
--- a/h2/lib/h2-scheme.ads
+++ b/h2/lib/h2-scheme.ads
@ -161,7 +161,8 @@ package H2.Scheme is
 		Procedure_Object,
 		Closure_Object,
 		Continuation_Object,
-		Frame_Object
+		Frame_Object,
+		Mark_Object
 	);

 	type Object_Record (Kind: Object_Kind; Size: Object_Size) is record
@ -374,6 +375,7 @@ private
 		Root_Environment: Object_Pointer := Nil_Pointer;
 		Environment: Object_Pointer := Nil_Pointer;
 		Stack: Object_Pointer := Nil_Pointer;
+		Mark: Object_Pointer := Nil_Pointer;

 		R: Register_Record;