1 files changed, 1 insertions, 2 deletions
diff --git a/src/eval.c b/src/eval.c
index 952a0ec4b46..9e0fabdcfba 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -981,8 +981,7 @@ usage: (let VARLIST BODY...)  */)
    specbind (Qinternal_interpreter_environment, lexenv);
  elt = Fprogn (XCDR (args));
-  SAFE_FREE ();
+  return SAFE_FREE_UNBIND_TO (count, elt);
-  return unbind_to (count, elt);
 }
 DEFUN ("while", Fwhile, Swhile, 1, UNEVALLED, 0,

diff --git a/src/eval.c b/src/eval.c index 952a0ec4b46..9e0fabdcfba 100644 --- a/src/eval.c +++ b/src/eval.c
@@ -981,8 +981,7 @@ usage: (let VARLIST BODY...) */)
981	specbind (Qinternal_interpreter_environment, lexenv);	981	specbind (Qinternal_interpreter_environment, lexenv);
982		982
983	elt = Fprogn (XCDR (args));	983	elt = Fprogn (XCDR (args));
984	SAFE_FREE ();	984	return SAFE_FREE_UNBIND_TO (count, elt);
985	return unbind_to (count, elt);
986	}	985	}
987		986
988	DEFUN ("while", Fwhile, Swhile, 1, UNEVALLED, 0,	987	DEFUN ("while", Fwhile, Swhile, 1, UNEVALLED, 0,