changed implementation of procedure call and grouped call.

still struggling with call-with-current-continuation

cmd/scheme.adb

@@ -41,6 +41,8 @@ begin
 	                   Stream.Deallocate_Stream'Access)
 	);
 
+S.Set_Option (SI, (S.Trait_Option, S.No_Optimization));
+
 	File_Stream.Name := File_Name'Unchecked_Access;
 	begin
 		S.Set_Input_Stream (SI, File_Stream); -- specify main input stream