made 'if' and 'define' continuation-friendly

2014-02-07 16:25:38 +00:00
parent 1c00ec53b1
commit ed4f37d47c
4 changed files with 68 additions and 94 deletions
--- a/h2/lib/h2-scheme.adb
+++ b/h2/lib/h2-scheme.adb
@ -98,11 +98,11 @@ package body H2.Scheme is
 		Opcode_Evaluate_Result,
 		Opcode_Evaluate_Object,
 		Opcode_Finish_And_Syntax,
-		Opcode_Finish_Define_Symbol,
-		Opcode_Finish_If_Syntax,
 		Opcode_Finish_Or_Syntax,
 	
+		Opcode_Define_Finish,
 		Opcode_Grouped_Call,  -- (begin ...), closure apply, let body
+		Opcode_If_Finish,
 		Opcode_Let_Binding,
 		Opcode_Letast_Binding,
 		Opcode_Letast_Binding_Finish,