diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2012-03-22 17:59:59 -0700 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2012-03-22 17:59:59 -0700 |
commit | 3e43fc5cd22e5293aef97cc67721d12fff9b9a84 (patch) | |
tree | a88e33bb275f8fb398a6e0d1211eb14acb4cada3 | |
parent | cffd912f512dc46b5a732068a0380c059db0f07d (diff) | |
download | txr-3e43fc5cd22e5293aef97cc67721d12fff9b9a84.tar.gz txr-3e43fc5cd22e5293aef97cc67721d12fff9b9a84.tar.bz2 txr-3e43fc5cd22e5293aef97cc67721d12fff9b9a84.zip |
* eval.c (transform_op): use integerp instead of numberp.
Not all numbers are integers now, and that situation
requires an integer.
-rw-r--r-- | ChangeLog | 6 | ||||
-rw-r--r-- | eval.c | 2 |
2 files changed, 7 insertions, 1 deletions
@@ -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. @@ -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; |