* eval.c (range_v_func, range_v_star_func): Restore the order of

arguments to plus, so that the from object is on the left. This
change was introduced in a commit on 2012-02-14, causing
character ranges to break due to bug that addition did not
commute for char + fixnum. Although the previous commit fixed
the regression, it's still good to have the object on the
left in case there are some future data types in case there
is ever some form of addition which does not commute.

1 files changed, 2 insertions, 2 deletions

diff --git a/eval.c b/eval.c
index 9caec011..337f4f80 100644
--- a/eval.c
+++ b/eval.c
@@ -1856,7 +1856,7 @@ static val rangev_func(val env, val lcons)
   cons_bind (to, step, to_step);
   val next = if3(functionp(step),
                  funcall1(step, from),
-                 plus(step, from));
+                 plus(from, step));
 
   rplaca(lcons, from);
 
@@ -1891,7 +1891,7 @@ static val range_star_v_func(val env, val lcons)
   cons_bind (to, step, to_step);
   val next = if3(functionp(step),
                  funcall1(step, from),
-                 plus(step, from));
+                 plus(from, step));
 
   rplaca(lcons, from);