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 --- streams.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'streams.c') diff --git a/streams.c b/streams.c index 56cecc1..10d136d 100644 --- a/streams.c +++ b/streams.c @@ -84,7 +84,7 @@ openstream(Rune *sourcesink, Rune *mode, Term *options, Term **stream) } Stream *s = openstreamfd(fd, bio, TextStream, smode); - *stream = mknumber(NumberInt, s->fd, 0); + *stream = mkinteger(s->fd); return 0; } @@ -116,13 +116,13 @@ closestream(Term *t) Term * currentinputstream(void) { - return mknumber(NumberInt, currentinput->fd, 0); + return mkinteger(currentinput->fd); } Term * currentoutputstream(void) { - return mknumber(NumberInt, currentoutput->fd, 0); + return mkinteger(currentoutput->fd); } void @@ -268,7 +268,7 @@ Stream * getstream(Term *t) { Stream *s = nil; - if(t->tag == NumberTerm && t->numbertype == NumberInt) + if(t->tag == IntegerTerm) s = getstreambyfd(t->ival); else if(t->tag == AtomTerm) s = getstreambyalias(t->text); -- cgit v1.2.3