Commit fa055055 authored by Kenichi Handa's avatar Kenichi Handa

(shuffle): Fix the logic of setting up the cycle.

parent e59e668b
<<<<<<< ChangeLog
2009-07-17 Kenichi Handa <handa@m17n.org>
* casetab.c (shuffle): Fix the logic of setting up the cycle.
2009-07-16 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
* nsfns.m (Fns_set_alpha): Remove function.
......
......@@ -229,7 +229,6 @@ shuffle (table, c, elt)
{
if (NATNUMP (elt))
{
Lisp_Object tem = Faref (table, elt);
int from, to;
if (CONSP (c))
......@@ -241,11 +240,11 @@ shuffle (table, c, elt)
from = to = XINT (c);
for (; from <= to; from++)
if (from != XINT (elt))
{
Faset (table, elt, make_number (from));
Faset (table, make_number (from), tem);
}
{
Lisp_Object tem = Faref (table, elt);
Faset (table, elt, make_number (from));
Faset (table, make_number (from), tem);
}
}
}
......
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