Diff for /gforth/wf.fs between versions 1.27 and 1.28

version 1.27, 2004/08/29 20:54:48 version 1.28, 2004/12/01 10:03:00
Line 161  Create jfif   $FF c, $D8 c, $FF c, $E0 c Line 161  Create jfif   $FF c, $D8 c, $FF c, $E0 c
     gif? IF  gif-size  rdrop EXIT  THEN      gif? IF  gif-size  rdrop EXIT  THEN
     jpg? IF  r> jpg-size  EXIT  THEN      jpg? IF  r> jpg-size  EXIT  THEN
     png? IF  png-size  rdrop EXIT  THEN      png? IF  png-size  rdrop EXIT  THEN
     0 0 ;      0 0 rdrop ;
   
 : .img-size ( addr u -- )  : .img-size ( addr u -- )
     r/o open-file IF  drop  EXIT  THEN  >r      r/o open-file IF  drop  EXIT  THEN  >r

Removed from v.1.27  
changed lines
  Added in v.1.28


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>