klisp

commit eb03c3d68814eb781796ae62fc4cb29536a56d98
parent 1ce5b9e2c26266653b452e29fd26aa80e4d0dae9
Author: Andres Navarro <canavarro82@gmail.com>
Date:   Wed, 27 Apr 2011 18:33:42 -0300

Bugfix: restricted decimal point format reading to decimal radix.

Diffstat:
M
src/ktoken.c
 | 
2
+-

1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/ktoken.c b/src/ktoken.c
@@ -401,7 +401,7 @@ TValue ktok_read_number(klisp_State *K, char *buf, int32_t len,
 {
     UNUSED(len); /* not needed really, buf ends with '\0' */
     TValue n;
-    if (has_exactp) {
+    if (has_exactp && radix == 10) {
 	/* TEMP: while there are no inexacts */
 	/* allow decimals if has #e prefix */
 	if (!krational_read_decimal(K, buf, radix, &n, NULL)) {