From bdcc02a5ea2d165c638d667978e8e2cf7462558a Mon Sep 17 00:00:00 2001 From: Peter Mikkelsen Date: Mon, 5 Jul 2021 16:59:06 +0000 Subject: Turn integers and floats into seperate term types --- misc.c | 16 +++++++++++----- 1 file changed, 11 insertions(+), 5 deletions(-) (limited to 'misc.c') diff --git a/misc.c b/misc.c index be32367..4adfffa 100644 --- a/misc.c +++ b/misc.c @@ -83,15 +83,21 @@ 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) { @@ -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); -- cgit v1.2.3