# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 881206569 0
# Node ID 19ffabe93a2d5f690a653b923bcd1cbfad3119cc
# Parent  d6605eeb5bd54ce4ffc790469a59a95edcebafd8
Fix comment (avoid spurious "unterminated comment" warning)

diff -r d6605eeb5bd5 -r 19ffabe93a2d src/mocklisp.c
--- a/src/mocklisp.c	Thu Dec 04 03:30:03 1997 +0000
+++ b/src/mocklisp.c	Thu Dec 04 03:36:09 1997 +0000
@@ -67,27 +67,28 @@
   return val;
 }
 
-/* Now converted to regular "while" by hairier conversion code.
-* DEFUN ("ml-while", Fml_while, Sml_while, 1, UNEVALLED, 0, "while  for mocklisp programs")
-*   (args)
-*      Lisp_Object args;
-* {
-*   Lisp_Object test, body, tem;
-*   struct gcpro gcpro1, gcpro2;
-*
-*   GCPRO2 (test, body);
-*
-*   test = Fcar (args);
-*   body = Fcdr (args);
-*   while (tem = Feval (test), XINT (tem))
-*     {
-*       QUIT;
-*       Fprogn (body);
-*    }
-*
-*   UNGCPRO;
-*   return Qnil;
-*}
+#if 0 /* Now converted to regular "while" by hairier conversion code.  */
+/**/DEFUN ("ml-while", Fml_while, Sml_while, 1, UNEVALLED, 0, "while  for mocklisp programs")
+  (args)
+     Lisp_Object args;
+{
+  Lisp_Object test, body, tem;
+  struct gcpro gcpro1, gcpro2;
+
+  GCPRO2 (test, body);
+
+  test = Fcar (args);
+  body = Fcdr (args);
+  while (tem = Feval (test), XINT (tem))
+    {
+      QUIT;
+      Fprogn (body);
+   }
+
+  UNGCPRO;
+  return Qnil;
+}
+#endif
 
 /* This is the main entry point to mocklisp execution.
  When eval sees a mocklisp function being called, it calls here