Path: utzoo!attcan!uunet!willett!ForthNet
From: ForthNet@willett.UUCP (ForthNet articles from GEnie)
Newsgroups: comp.lang.forth
Subject: FPC forth?????????
Message-ID: <443.UUL1.3#5129@willett.UUCP>
Date: 11 Feb 90 19:26:38 GMT
Organization: Latest link in the ForthNet chain.  (Pgh, PA)
Lines: 34

Category 1,  Topic 21
Message 125       Sun Feb 11, 1990
R.BERKEY [Robert]            at 03:47 PST
 
  There is an F-PC SED bug, requiring a reset, when the file is of length
zero.  Here is a fix.

SEDITOR.SEQ was:

 : read.oldfile ( --- )         \ get existing file
                off> newfl
                ed1hndl endfile or              \ it must have a length
                if      read.openfile           \ read it
                        outbuf c@ 0<>           \ did we get it all
                        if      .partial        \ if not then warn user a
                        then                    \ partial read was performed
                else    true
                        " File is of length ZERO." ?terror
                then    ;

SEDITOR.SEQ as modified:

 : read.oldfile ( --- )         \ get existing file
                off> newfl
                ed1hndl endfile d0=
                abort" File is of length ZERO." \ it must have a length
                read.openfile                   \ read it
                outbuf c@ 0<>                   \ did we get it all
                if      .partial                \ if not then warn user a
                then   ;                        \ partial read was performed

-----
This message came from GEnie via willett through a semi-automated process.
Report problems to: 'uunet!willett!dwp' or 'willett!dwp@gateway.sei.cmu.edu'