Turn integers and floats into seperate term types

1 files changed, 4 insertions, 4 deletions

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);