gforth/test/postpone.fs - diff

Return to postpone.fs CVS log

Up to [gforth] / gforth / test

version 1.1, 1997/05/21 20:40:20	version 1.2, 2009/11/28 21:19:34
Line 216 testing postpone if	Line 216 testing postpone if
{ 4 PIF6 -> 0 1 2 3 4 }	{ 4 PIF6 -> 0 1 2 3 4 }

testing postpone literal	testing postpone literal
	[undefined] postpone-literal [if]
: postpone-literal	: postpone-literal
postpone literal ;	postpone literal ;
	[then]

{ : plit [ 42 postpone-literal ] ; -> }	{ : plit [ 42 postpone-literal ] ; -> }
{ plit -> 42 }	{ plit -> 42 }