diff options
| author | Richard M. Stallman | 1998-04-17 01:49:33 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-04-17 01:49:33 +0000 |
| commit | 00df1bdfb323ce5ce69a9a06e0dc136cf1dac398 (patch) | |
| tree | 5e679baa273a4eb8f22ac21679fde4a4739ea05b | |
| parent | ad21fa0789eef677c123d4b6efcf3e62fa1ccb87 (diff) | |
| download | emacs-00df1bdfb323ce5ce69a9a06e0dc136cf1dac398.tar.gz emacs-00df1bdfb323ce5ce69a9a06e0dc136cf1dac398.zip | |
(Fml_if): Initialize val.
| -rw-r--r-- | src/mocklisp.c | 1 |
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'.") | |||
| 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 | { |