Mercurial > emacs

comparison src/mocklisp.c @ 20392:19ffabe93a2d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix comment (avoid spurious "unterminated comment" warning)
author Karl Heuer <kwzh@gnu.org>
date Thu, 04 Dec 1997 03:36:09 +0000
parents 0e09a1cec19d
children fa9ff387d260
comparison
equal deleted inserted replaced
20391:d6605eeb5bd5 20392:19ffabe93a2d
65 } 65 }
66 UNGCPRO; 66 UNGCPRO;
67 return val; 67 return val;
68 } 68 }
69 69
70 /* Now converted to regular "while" by hairier conversion code. 70 #if 0 /* Now converted to regular "while" by hairier conversion code. */
71 * DEFUN ("ml-while", Fml_while, Sml_while, 1, UNEVALLED, 0, "while for mocklisp programs") 71 /**/DEFUN ("ml-while", Fml_while, Sml_while, 1, UNEVALLED, 0, "while for mocklisp programs")
72 * (args) 72 (args)
73 * Lisp_Object args; 73 Lisp_Object args;
74 * { 74 {
75 * Lisp_Object test, body, tem; 75 Lisp_Object test, body, tem;
76 * struct gcpro gcpro1, gcpro2; 76 struct gcpro gcpro1, gcpro2;
77 * 77
78 * GCPRO2 (test, body); 78 GCPRO2 (test, body);
79 * 79
80 * test = Fcar (args); 80 test = Fcar (args);
81 * body = Fcdr (args); 81 body = Fcdr (args);
82 * while (tem = Feval (test), XINT (tem)) 82 while (tem = Feval (test), XINT (tem))
83 * { 83 {
84 * QUIT; 84 QUIT;
85 * Fprogn (body); 85 Fprogn (body);
86 * } 86 }
87 * 87
88 * UNGCPRO; 88 UNGCPRO;
89 * return Qnil; 89 return Qnil;
90 *} 90 }
91 #endif
91 92
92 /* This is the main entry point to mocklisp execution. 93 /* This is the main entry point to mocklisp execution.
93 When eval sees a mocklisp function being called, it calls here 94 When eval sees a mocklisp function being called, it calls here
94 with the unevaluated argument list */ 95 with the unevaluated argument list */
95 96