gforth/extend.fs - diff

Return to extend.fs CVS log

Up to [gforth] / gforth

version 1.47, 2002/12/04 10:42:58	version 1.48, 2002/12/13 15:49:53
Line 236 variable span ( -- c-addr ) \ core-ext	Line 236 variable span ( -- c-addr ) \ core-ext
REPEAT	REPEAT
drop	drop
\ remember udp	\ remember udp
udp @ , ;	udp @ ,
	\ remember dyncode-ptr
	here ['] noop , compile-prim1 finish-code ;

: marker! ( mark -- )	: marker! ( mark -- )
\ reset included files count; resize will happen on next add-included-file	\ reset included files count; resize will happen on next add-included-file
Line 263 variable span ( -- c-addr ) \ core-ext	Line 265 variable span ( -- c-addr ) \ core-ext
REPEAT	REPEAT
drop	drop
\ restore udp and dp	\ restore udp and dp
	dup cell+ @ forget-dyncode 0= abort" gforth bug"
@ udp ! dp !	@ udp ! dp !
\ clean up vocabulary stack	\ clean up vocabulary stack
0 vp @ 0	0 vp @ 0