revised the reader code according to the previous rame change

2014-02-06 03:28:14 +00:00
parent 9dda06b909
commit 0848e5be51
2 changed files with 20 additions and 5 deletions
--- a/h2/lib/h2-scheme.adb
+++ b/h2/lib/h2-scheme.adb
@ -117,7 +117,8 @@ package body H2.Scheme is
 		Opcode_Read_List_Cdr,
 		Opcode_Read_List_End,
 		Opcode_Close_List,
-		Opcode_Close_Quote
+		Opcode_Close_Quote,
+		Opcode_Close_Quote_In_List
 	);
 	for Opcode_Type'Size use Object_Integer'Size;