gforth/locals-test.fs - diff

Return to locals-test.fs CVS log

Up to [gforth] / gforth

version 1.3, 1994/07/08 15:00:53	version 1.5, 1994/10/24 19:16:01
Line 94 until	Line 94 until

: xxx5	: xxx5
{ a }	{ a }
	a drop
ahead	ahead
	assume-live
begin	begin
[ ." after begin" localsinfo ]	[ ." after begin" localsinfo ]
	a drop
[ 1 cs-roll ]	[ 1 cs-roll ]
then	then
[ ." after then" localsinfo ]	[ ." after then" localsinfo ]
Line 245 until	Line 248 until
[ ." after xexit" localsinfo ]	[ ." after xexit" localsinfo ]
else	else
{ b }	{ b }
[ ." before xthen" localsinfo	[ ." before xthen" localsinfo ]
then	then
[ ." after xthen" localsinfo ]	[ ." after xthen" localsinfo ]
;	;
Line 278 s" " s" " strcmp1 . cr	Line 281 s" " s" " strcmp1 . cr
;	;
teststrcmp1	teststrcmp1

	." testing the abominable locals-ext wordset" cr
	: puke locals\| this read you can \|
	you read this can ;

	1 2 3 4 puke . . . . cr

bye	bye