[gforth] / gforth / Attic / errore.fs  

gforth: gforth/Attic/errore.fs

Diff for /gforth/Attic/errore.fs between version 1.11 and 1.12

version 1.11, Thu Feb 6 21:22:59 1997 UTC version 1.12, Sat Feb 8 22:58:09 1997 UTC
Line 43 
Line 43 
         IF 2 cells + count type drop exit THEN          IF 2 cells + count type drop exit THEN
     REPEAT      REPEAT
     drop      drop
   [ has-os [IF] ]
     dup -511 -255 within      dup -511 -255 within
     IF      IF
         256 + negate strsignal type exit          256 + negate strsignal type exit
Line 51 
Line 52 
     IF      IF
         512 + negate strerror type exit          512 + negate strerror type exit
     THEN      THEN
   [ [THEN] ]
     . ;      . ;
   

Generate output suitable for use with a patch program
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help