shithub: femtolisp

Info  •  Files  •  Log  •  Branches

effective_numerictype: same issue here

--- a/mkfile

+++ b/mkfile

@@ -5,9 +5,15 @@

 CFLAGS=$CFLAGS -p -D__plan9__ -DNDEBUG -D__${objtype}__ -Illt

 HFILES=\

+	cvalues.c\

+	equal.c\

 	equalhash.h\

 	flisp.h\

 	opcodes.h\

+	operators.c\

+	print.c\

+	read.c\

+	types.c\

 OFILES=\

 	builtins.$O\

@@ -32,7 +38,3 @@

 llt/libllt.a:

 	cd llt && mk

-

-cvalues.$O: operators.c

-

-flisp.$O: cvalues.c types.c print.c read.c equal.c

--- a/operators.c

+++ b/operators.c

@@ -56,7 +56,7 @@

     double fp;

     fp = fpart(r);

-    if (fp != 0 || r > U64_MAX || r < S64_MIN) {

+    if (fp != 0 || r > S64_MAX || r < S64_MIN) {

         return T_DOUBLE;

     }

     else if (r >= INT_MIN && r <= INT_MAX) {