From 7a1fd864e1dab4fcc75560ad3ab0e0cb640bdec6 Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Thu, 19 Jun 2008 16:26:48 +0000
Subject: [PATCH] Update IHS environment also when using optimized function
 calls in interpreter

---
 src/c/interpreter.d | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/c/interpreter.d b/src/c/interpreter.d
index e68a23296..7489c1922 100644
--- a/src/c/interpreter.d
+++ b/src/c/interpreter.d
@@ -650,6 +650,7 @@ ecl_interpret(cl_object frame, cl_object env, cl_object bytecodes, cl_index offs
 		cl_objectfn_fixed f;
 		GET_DATA(s, vector, data);
 		f = (cl_objectfn_fixed)SYM_FUN(s)->cfun.entry;
+		SETUP_ENV(the_env);
 		reg0 = f(reg0);
 		THREAD_NEXT;
 	}
@@ -659,6 +660,7 @@ ecl_interpret(cl_object frame, cl_object env, cl_object bytecodes, cl_index offs
 		cl_objectfn_fixed f;
 		GET_DATA(s, vector, data);
 		f = (cl_objectfn_fixed)SYM_FUN(s)->cfun.entry;
+		SETUP_ENV(the_env);
 		reg0 = f(STACK_POP(the_env), reg0);
 		THREAD_NEXT;
 	}