gforth/extend.fs - diff

Return to extend.fs CVS log

Up to [gforth] / gforth

version 1.53, 2003/01/26 20:56:37	version 1.55, 2003/03/09 15:16:49
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,1998,2000 Free Software Foundation, Inc.	\ Copyright (C) 1995,1998,2000,2003 Free Software Foundation, Inc.

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

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