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.54, 2003/01/31 22:45:11
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
Line 266 variable span ( -- c-addr ) \ core-ext	Line 266 variable span ( -- c-addr ) \ core-ext
drop	drop
\ restore udp and dp	\ restore udp and dp
[IFDEF] forget-dyncode	[IFDEF] forget-dyncode
dup cell+ @ forget-dyncode 0= abort" gforth bug"	dup cell+ @ forget-dyncode drop
[THEN]	[THEN]
@ udp ! dp !	@ udp ! dp !
\ clean up vocabulary stack	\ clean up vocabulary stack