diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-07-28 15:09:31 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-07-28 15:09:31 +0000 |
| commit | 4f5c44033032558a1a27f4bf922c44dc30a416a2 (patch) | |
| tree | 3b6753f881e7dec0a08ea49985ec337ae1846bd4 | |
| parent | 0e193890cc5ad35f3ee9c2c61b902150a640ecc1 (diff) | |
| download | emacs-4f5c44033032558a1a27f4bf922c44dc30a416a2.tar.gz | |
(map_obarray): Don't crash if something strange is in the obarray.
| -rw-r--r-- | src/lread.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/lread.c b/src/lread.c index 7f718dce681..60583bafbb2 100644 --- a/src/lread.c +++ b/src/lread.c @@ -2248,7 +2248,7 @@ map_obarray (obarray, fn, arg) for (i = XVECTOR (obarray)->size - 1; i >= 0; i--) { tail = XVECTOR (obarray)->contents[i]; - if (XFASTINT (tail) != 0) + if (SYMBOLP (tail)) while (1) { (*fn) (tail, arg); |