fixed parsing negative numbers, added float functions

1 files changed, 6 insertions, 2 deletions

diff --git a/src/eval.c b/src/eval.c
index 386442c..63305b4 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -125,6 +125,7 @@ sym_t* try_eval_internal(sym_t* symbol, hashtable_t* symbolScope) {
 					firstInt = symtoi(v);
 				}
 				else if (type == FLOAT) {
+					firstFloat = symtof(v);
 				}
 				else if (type == STRING) {
 					firstString = symtos(v);
@@ -140,9 +141,12 @@ sym_t* try_eval_internal(sym_t* symbol, hashtable_t* symbolScope) {
 						return init_sym_int(0);
 					}
 				}
-				/* TODO: float */
 				else if (type == FLOAT) {
-
+					float sf = symtof(v);
+					destroy_sym(v);
+					if (sf != firstFloat) {
+						return init_sym_int(0);
+					}
 				}
 				else if (type == STRING) {
 					char* ss = symtos(v);