wsfe.c (s_wsfe): Fix setting of f__curunit lost in previous change.

1998-06-29  Dave Love  <d.love@dl.ac.uk>
	* libI77/wsfe.c (s_wsfe): Fix setting of f__curunit lost in
	previous change.
	* libI77/rsfe.c (s_rsfe): Likewise.

From-SVN: r20871

libf2c/ChangeLog

+1998-06-29  Dave Love  <d.love@dl.ac.uk>
+
+	* libI77/wsfe.c (s_wsfe): Fix setting of f__curunit lost in
+	previous change.
+	* libI77/rsfe.c (s_rsfe): Likewise.
+
 1998-06-23  Dave Love  <d.love@dl.ac.uk>
 
 	* libI77/backspace.c, libI77/dfe.c, libI77/due.c, libI77/iio.c,

libf2c/libI77/rsfe.c

@@ -60,6 +60,7 @@ integer s_rsfe(cilist *a) /* start */
 	f__cursor=f__recpos=0;
 	f__scale=0;
 	f__fmtbuf=a->cifmt;
+	f__curunit= &f__units[a->ciunit];
 	f__cf=f__curunit->ufd;
 	if(pars_f(f__fmtbuf)<0) err(a->cierr,100,"startio");
 	f__getn= x_getc;

libf2c/libI77/wsfe.c

@@ -57,6 +57,7 @@ integer s_wsfe(cilist *a)	/*start*/
 	f__nonl = 0;
 	f__scale=0;
 	f__fmtbuf=a->cifmt;
+	f__curunit = &f__units[a->ciunit];
 	f__cf=f__curunit->ufd;
 	if(pars_f(f__fmtbuf)<0) err(a->cierr,100,"startio");
 	f__putn= x_putc;