From 3e43fc5cd22e5293aef97cc67721d12fff9b9a84 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Thu, 22 Mar 2012 17:59:59 -0700 Subject: * eval.c (transform_op): use integerp instead of numberp. Not all numbers are integers now, and that situation requires an integer. --- ChangeLog | 6 ++++++ eval.c | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 3a410e26..3c9be325 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2012-03-22 Kaz Kylheku + + * 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 * parser.l: Bugfix: was not allowing e-notation floats 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; -- cgit v1.2.3