summaryrefslogtreecommitdiff
path: root/streams.c
diff options
context:
space:
mode:
Diffstat (limited to 'streams.c')
-rw-r--r--streams.c8
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);