Push NAN if a number has trailing chars

soveran · Apr 20, 2017 · 9255d2c · 9255d2c
1 parent 87b9156
commit 9255d2c
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/clac.c b/clac.c
@@ -232,11 +232,13 @@ static void process(sds word) {
 		push(a);
  	} else if ((n = find(word)) != NULL) {
  		eval(n->meaning);
-	} else {
+	} else if (isdigit(word[0])) {
 		a = strtod(word, &z);
 
 		if (*z == '\0') {
 			push(a);
+		} else {
+			push(NAN);
 		}
 	}
 }