* eval.c (transform_op): use integerp instead of numberp.

Not all numbers are integers now, and that situation
requires an integer.

2 files changed, 7 insertions, 1 deletions

diff --git a/ChangeLog b/ChangeLog
index 3a410e26..3c9be325 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,11 @@
 2012-03-22  Kaz Kylheku  <kaz@kylheku.com>
 
+	* eval.c (transform_op): use integerp instead of numberp.
+	Not all numbers are integers now, and that situation
+	requires an integer.
+
+2012-03-22  Kaz Kylheku  <kaz@kylheku.com>
+
 	* parser.l: Bugfix: was not allowing e-notation floats
 	with no decimal point like 1E1.
 
diff --git a/eval.c b/eval.c
index db568c0d..21397f1f 100644
--- a/eval.c
+++ b/eval.c
@@ -1496,7 +1496,7 @@ static val transform_op(val forms, val syms, val rg)
     if (consp(fi) && car(fi) == var_s && consp(cdr(fi))) {
       val vararg = car(cdr(fi));
 
-      if (numberp(vararg)) {
+      if (integerp(vararg)) {
         val prefix = format(nil, lit("arg-~,02s-"), vararg, nao);
         val newsyms = syms;
         val new_p;