gforth/kernel/basics.fs - diff

Return to basics.fs CVS log

Up to [gforth] / gforth / kernel

version 1.38, 2003/03/09 15:17:04	version 1.39, 2003/08/17 22:52:34
Line 66 has? ec	Line 66 has? ec
[IF]	[IF]
unlock ram-dictionary borders nip lock	unlock ram-dictionary borders nip lock
AConstant dictionary-end	AConstant dictionary-end
	: forthstart 0 ;
[ELSE]	[ELSE]
has? header [IF]	has? header [IF]
: dictionary-end ( -- addr )	: dictionary-end ( -- addr )
Line 170 AConstant dictionary-end	Line 171 AConstant dictionary-end
true ;	true ;

: accumulate ( +d0 addr digit - +d1 addr )	: accumulate ( +d0 addr digit - +d1 addr )
swap >r swap base @ um* drop rot base @ um* d+ r> ;	swap >r swap base @
	um* drop rot base @ um* d+ r> ;

: >number ( ud1 c-addr1 u1 -- ud2 c-addr2 u2 ) \ core to-number	: >number ( ud1 c-addr1 u1 -- ud2 c-addr2 u2 ) \ core to-number
\G Attempt to convert the character string @var{c-addr1 u1} to an	\G Attempt to convert the character string @var{c-addr1 u1} to an