--- gforth/kernel/saccept.fs 1998/12/08 22:03:13 1.3 +++ gforth/kernel/saccept.fs 1999/05/17 15:07:05 1.4 @@ -18,6 +18,8 @@ \ along with this program; if not, write to the Free Software \ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +require ./io.fs + : accept ( adr len -- len ) over + over ( start end pnt ) BEGIN