aft  ( -- )

published: 24 June 2022 / updated 24 June 2022

Lire cette page en français

 

vocabulary: forth

Jump to THEN in FOR-AFT-THEN-NEXT loop 1st time through.

Example:

: test-aft1 ( n -- ) 
  FOR 
    ."  for "     \ first iteration 
    AFT 
      ."  aft "   \ following iterations 
    THEN 
    I .          \ all iterations 
  NEXT ; 
3 test-aft1  
\ display for 3 aft 2 aft 1 aft 0 

Legal: site web personnel sans commerce / personal site without seling