gforth/extend.fs - diff

Return to extend.fs CVS log

Up to [gforth] / gforth

version 1.17, 1996/07/16 20:57:08	version 1.19, 1997/01/04 16:32:28
Line 30 decimal	Line 30 decimal

\ VALUE 2>R 2R> 2R@ 17may93jaw	\ VALUE 2>R 2R> 2R@ 17may93jaw

: value ( w -- ) \ core-ext	: value ( w "name" -- ) \ core-ext
(constant) , ;	(constant) , ;
\ !! 2value	\ !! 2value

Line 78 decimal	Line 78 decimal
\ UNUSED 17may93jaw	\ UNUSED 17may93jaw

: unused ( -- u ) \ core-ext	: unused ( -- u ) \ core-ext
s0 @ 512 - \ for stack	forthstart dup 3 cells + @ + here - ;
here - ;

\ [COMPILE] 17may93jaw	\ [COMPILE] 17may93jaw

Line 94 decimal	Line 93 decimal
\ CONVERT 17may93jaw	\ CONVERT 17may93jaw

: convert ( ud1 c-addr1 -- ud2 c-addr2 ) \ core-ext	: convert ( ud1 c-addr1 -- ud2 c-addr2 ) \ core-ext
\ obsolescent; supersedet by @code{>number}.	\ obsolescent; superseded by @code{>number}.
true >number drop ;	true >number drop ;

\ ERASE 17may93jaw	\ ERASE 17may93jaw