--- gforth/test/postpone.fs 2009/11/28 21:19:34 1.2 +++ gforth/test/postpone.fs 2012/06/22 00:48:48 1.3 @@ -381,3 +381,10 @@ testing postpone [char] { PCHAR1 -> 58 } { 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 }