Mercurial > emacs

comparison src/lread.c @ 96361:a99299e4d2de

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
American English spelling fix.
author Glenn Morris <rgm@gnu.org>
date Fri, 27 Jun 2008 02:13:38 +0000
parents 353a9f7910cf
children c3309dba6542
comparison
equal deleted inserted replaced
96360:b4fbe199423a 96361:a99299e4d2de
3102 else if (VECTORP (subtree)) 3102 else if (VECTORP (subtree))
3103 length = ASIZE (subtree); 3103 length = ASIZE (subtree);
3104 else 3104 else
3105 /* An unknown pseudovector may contain non-Lisp fields, so we 3105 /* An unknown pseudovector may contain non-Lisp fields, so we
3106 can't just blindly traverse all its fields. We used to call 3106 can't just blindly traverse all its fields. We used to call
3107 `Flength' which signalled `sequencep', so I just preserved this 3107 `Flength' which signaled `sequencep', so I just preserved this
3108 behavior. */ 3108 behavior. */
3109 wrong_type_argument (Qsequencep, subtree); 3109 wrong_type_argument (Qsequencep, subtree);
3110 3110
3111 for (i = 0; i < length; i++) 3111 for (i = 0; i < length; i++)
3112 SUBSTITUTE (AREF (subtree, i), 3112 SUBSTITUTE (AREF (subtree, i),