gforth/extend.fs - diff

Return to extend.fs CVS log

Up to [gforth] / gforth

version 1.48, 2002/12/13 15:49:53	version 1.52, 2003/01/20 17:07:37
Line 25 decimal	Line 25 decimal

\ .( 12may93jaw	\ .( 12may93jaw

: .( ( compilation,interpretation "ccc<paren>" -- ) \ core-ext dot-paren	: .( ( compilation&interpretation "ccc<paren>" -- ) \ core-ext dot-paren
\G Compilation and interpretation semantics: Parse a string @i{ccc}	\G Compilation and interpretation semantics: Parse a string @i{ccc}
\G delimited by a @code{)} (right parenthesis). Display the	\G delimited by a @code{)} (right parenthesis). Display the
\G string. This is often used to display progress information during	\G string. This is often used to display progress information during
Line 265 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
	[IFDEF] forget-dyncode
dup cell+ @ forget-dyncode 0= abort" gforth bug"	dup cell+ @ forget-dyncode 0= abort" gforth bug"
	[THEN]
@ udp ! dp !	@ udp ! dp !
\ clean up vocabulary stack	\ clean up vocabulary stack
0 vp @ 0	0 vp @ 0