1 files changed, 1 insertions, 0 deletions
diff --git a/src/mocklisp.c b/src/mocklisp.c
index dfcee79bd22..00329b8038e 100644
--- a/src/mocklisp.c
+++ b/src/mocklisp.c
@@ -50,6 +50,7 @@ DEFUN ("ml-if", Fml_if, Sml_if, 0, UNEVALLED, 0, "Mocklisp version of `if'.")
  register Lisp_Object val;
  struct gcpro gcpro1;
+  val = Qnil;
  GCPRO1 (args);
  while (!NILP (args))
    {

diff --git a/src/mocklisp.c b/src/mocklisp.c index dfcee79bd22..00329b8038e 100644 --- a/src/mocklisp.c +++ b/src/mocklisp.c
@@ -50,6 +50,7 @@ DEFUN ("ml-if", Fml_if, Sml_if, 0, UNEVALLED, 0, "Mocklisp version of `if'.")
50	register Lisp_Object val;	50	register Lisp_Object val;
51	struct gcpro gcpro1;	51	struct gcpro gcpro1;
52		52
		53	val = Qnil;
53	GCPRO1 (args);	54	GCPRO1 (args);
54	while (!NILP (args))	55	while (!NILP (args))
55	{	56	{