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.3, 2012/06/22 00:48:48
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 }
Line 379 testing postpone [char]	Line 381 testing postpone [char]
{ PCHAR1 -> 58 }	{ PCHAR1 -> 58 }
{ PCHAR2 -> 48 }	{ PCHAR2 -> 48 }

	\ test if we can build entire macros

	testing postpone macros
	: n+: ( N -- ) >R : R> POSTPONE LITERAL POSTPONE + POSTPONE ; ;
	3 n+: 3+
	: bar 3+ ;
	{ 5 bar -> 8 }