Bell 32V development

[unix-history] / usr / src / libI77 / rewind.c

diff --git a/usr/src/libI77/rewind.c b/usr/src/libI77/rewind.c
index 3d76887..d8e3c4d 100644 (file)
--- a/usr/src/libI77/rewind.c
+++ b/usr/src/libI77/rewind.c
@@ -4,7 +4,7 @@ f_rew(a) alist *a;
        unit *b;
        if(a->aunit>=MXUNIT || a->aunit<0) err(a->aerr,101,"rewind");
        b = &units[a->aunit];
        unit *b;
        if(a->aunit>=MXUNIT || a->aunit<0) err(a->aerr,101,"rewind");
        b = &units[a->aunit];

-       if(b->ufd == NULL) return(0);
+       if(b->ufd==NULL && fk_open(READ,SEQ,FMT,a->aunit)) err(a->aerr,114,"rewind")

        if(!b->useek) err(a->aerr,106,"rewind")
        if(b->uwrt)
        {       nowreading(b);
        if(!b->useek) err(a->aerr,106,"rewind")
        if(b->uwrt)
        {       nowreading(b);