(a_write): Verify that *annot is a cons.

f4a3a8c9 · Richard M. Stallman · 7d637a0d · f4a3a8c9
Commit f4a3a8c9 authored Jun 27, 1994 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

src/fileio.c src/fileio.c +1 -1

No files found.
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -3296,7 +3296,7 @@ a_write (desc, addr, len, pos, annot)
  int nextpos;
  int lastpos = pos + len;

-  while (1)
+  while (CONSP (*annot))
    {
      tem = Fcar_safe (Fcar (*annot));
      if (INTEGERP (tem) && XINT (tem) >= pos && XFASTINT (tem) <= lastpos)