diff options
| author | Jim Blandy <jimb@redhat.com> | 1992-01-13 21:48:03 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@redhat.com> | 1992-01-13 21:48:03 +0000 |
| commit | d427b66a664c0e1ffc818dfa5b87b45b4857d2ae (patch) | |
| tree | a3255be5cf521ab9c44b9fdfd06a0466274be421 /src/mocklisp.c | |
| parent | b2c9579f172da05112f29b664de6d8da98c1e813 (diff) | |
| download | emacs-d427b66a664c0e1ffc818dfa5b87b45b4857d2ae.tar.gz | |
entered into RCS
Diffstat (limited to 'src/mocklisp.c')
| -rw-r--r-- | src/mocklisp.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/mocklisp.c b/src/mocklisp.c index 5f0800f94c1..353d4da0e43 100644 --- a/src/mocklisp.c +++ b/src/mocklisp.c @@ -32,7 +32,7 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ * { * Lisp_Object elt; * -* while (!NULL (args)) +* while (!NILP (args)) * { * elt = Fcar (args); * Ffset (Fcar (elt), Fcons (Qmocklisp, Fcdr (elt))); @@ -50,11 +50,11 @@ DEFUN ("ml-if", Fml_if, Sml_if, 0, UNEVALLED, 0, "Mocklisp version of `if'.") struct gcpro gcpro1; GCPRO1 (args); - while (!NULL (args)) + while (!NILP (args)) { val = Feval (Fcar (args)); args = Fcdr (args); - if (NULL (args)) break; + if (NILP (args)) break; if (XINT (val)) { val = Feval (Fcar (args)); @@ -156,7 +156,7 @@ DEFUN ("ml-prefix-argument-loop", Fml_prefix_argument_loop, Sml_prefix_argument_ struct gcpro gcpro1; /* Set `arg' in case we call a built-in function that looks at it. Still are a few. */ - if (NULL (Vcurrent_prefix_arg)) + if (NILP (Vcurrent_prefix_arg)) i = 1; else { |