Turn integers and floats into seperate term types

1 files changed, 11 insertions, 5 deletions

diff --git a/misc.c b/misc.c
index be32367..4adfffa 100644
--- a/misc.c
+++ b/misc.c
@@ -83,16 +83,22 @@ mkcompound(Rune *name, int arity, Term *args)
 }
 
 Term *
-mknumber(int type, vlong ival, double dval)
+mkfloat(double dval)
 {
-	Term *t = mkterm(NumberTerm);
-	t->numbertype = type;
-	t->ival = ival;
+	Term *t = mkterm(FloatTerm);
 	t->dval = dval;
 	return t;
 }
 
 Term *
+mkinteger(vlong ival)
+{
+	Term *t = mkterm(IntegerTerm);
+	t->ival = ival;
+	return t;
+}
+
+Term *
 mkstring(Rune *text)
 {
 	Term *t = nil;
@@ -109,7 +115,7 @@ mkstring(Rune *text)
 		break;
 	case DoubleQuotesCodes:
 		for(r = text; *r != '\0'; r++){
-			Term *code = mknumber(NumberInt, *r, 0);
+			Term *code = mkinteger(*r);
 			t = appendterm(t, code);
 		}
 		t = mklist(t);