Diff for /gforth/test/postpone.fs between versions 1.1 and 1.3

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 }

Removed from v.1.1  
changed lines
  Added in v.1.3


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>