Commit 68b587a6 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(concat): Move side effect outside of macro call.

(hash_clear): Use ASET.
parent 02e3336d
2008-02-08 Stefan Monnier <monnier@iro.umontreal.ca>
* fns.c (concat): Move side effect outside of macro call.
(hash_clear): Use ASET.
2008-02-08 Richard Stallman <rms@gnu.org>
* frame.c (Fdelete_frame): If FORCE, don't call hooks.
......
......@@ -727,7 +727,10 @@ concat (nargs, args, target_type, last_special)
thisindex++;
}
else
elt = AREF (this, thisindex++);
{
elt = AREF (this, thisindex);
thisindex++;
}
/* Store this element into the result. */
if (toindex < 0)
......@@ -737,7 +740,10 @@ concat (nargs, args, target_type, last_special)
tail = XCDR (tail);
}
else if (VECTORP (val))
AREF (val, toindex++) = elt;
{
ASET (val, toindex, elt);
toindex++;
}
else
{
CHECK_NUMBER (elt);
......@@ -4239,7 +4245,7 @@ hash_clear (h)
}
for (i = 0; i < ASIZE (h->index); ++i)
AREF (h->index, i) = Qnil;
ASET (h->index, i, Qnil);
h->next_free = make_number (0);
h->count = 0;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment