added more code for 'do'

2014-02-17 15:11:00 +00:00
parent c4e23f71f3
commit 8edf7372cf
4 changed files with 210 additions and 88 deletions
--- a/h2/lib/h2-scheme.ads
+++ b/h2/lib/h2-scheme.ads
@ -164,6 +164,7 @@ package H2.Scheme is
 	type Object_Flags is mod 2 ** 4;
 	Syntax_Object: constant Object_Flags := Object_Flags'(2#0001#); 
 	Syntax_Checked: constant Object_Flags := Object_Flags'(2#0010#);
+	Argument_Checked: constant Object_Flags := Object_Flags'(2#0100#);

 	type Syntax_Code is (
 		And_Syntax,