gforth/prims2x.fs - diff

Return to prims2x.fs CVS log

Up to [gforth] / gforth

version 1.134, 2003/03/09 15:16:52	version 1.136, 2003/03/22 10:15:49
Line 53	Line 53

warnings off	warnings off

	\ redefinitions of kernel words not present in gforth-0.6.1
	: latestxt lastcfa @ ;
	: latest last @ ;

[IFUNDEF] try	[IFUNDEF] try
include startup.fs	include startup.fs
[THEN]	[THEN]
Line 608 wordlist constant type-names \ this is h	Line 612 wordlist constant type-names \ this is h
get-current type-names set-current	get-current type-names set-current
stack-type 2dup nextname stack-type-name	stack-type 2dup nextname stack-type-name
set-current	set-current
stack-pointer lastxt >body stack-name nextname make-stack ;	stack-pointer latestxt >body stack-name nextname make-stack ;

stack inst-stream IP Cell	stack inst-stream IP Cell
' inst-in-index inst-stream stack-in-index-xt !	' inst-in-index inst-stream stack-in-index-xt !