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

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

1 files changed, 1 insertions, 1 deletions

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;