gforth/extend.fs - diff

Return to extend.fs CVS log

Up to [gforth] / gforth

version 1.51, 2003/01/19 23:35:29	version 1.53, 2003/01/26 20:56:37
Line 1	Line 1
\ EXTEND.FS CORE-EXT Word not fully tested! 12may93jaw	\ EXTEND.FS CORE-EXT Word not fully tested! 12may93jaw

\ Copyright (C) 1995-2003 Free Software Foundation, Inc.	\ Copyright (C) 1995,1998,2000 Free Software Foundation, Inc.

\ This file is part of Gforth.	\ This file is part of Gforth.

Line 118 decimal	Line 118 decimal
begin	begin
dup r@ >=	dup r@ >=
while	while
over 2r@ swap -text 0= if	2dup 2r@ string-prefix? if
2swap 2drop 2r> 2drop true exit	2swap 2drop 2r> 2drop true exit
endif	endif
1 /string	1 /string