shithub: femtolisp

Info  •  Files  •  Log  •  Branches

fixing ambiguity in reading hex numbers and floating point
making print robust against the undefined value

--- a/femtolisp/print.c

+++ b/femtolisp/print.c

@@ -375,6 +375,7 @@

         break;

     case TAG_CVALUE:

     case TAG_CPRIM:

+      if (v == UNBOUND) { HPOS+=ios_printf(f, "#<undefined>"); break; }

     case TAG_VECTOR:

     case TAG_CONS:

         if ((label=(value_t)ptrhash_get(&printconses, (void*)v)) !=

--- a/femtolisp/read.c

+++ b/femtolisp/read.c

@@ -26,7 +26,8 @@

     double d;

     if (*tok == '\0')

         return 0;

-    if (strpbrk(tok, ".eEpP")) {

+    if (!((tok[0]=='0' && tok[1]=='x') || (base >= 15)) &&

+        strpbrk(tok, ".eEpP")) {

         d = strtod(tok, &end);

         if (*end == '\0') {

             if (pval) *pval = mk_double(d);