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