shithub: 9ficl

ref: 7d02e382d314d5bdde7978ccb7a64ea9201d03db
dir: 9ficl/test/sarray.fr

View raw version 
\ test file for ficl
\ string array...
: $array ( caddr u ... caddr u n -- ) 
    create 0 ?do , , loop 
    does> swap 2* cells + 2@ type 
;

: s
    s" string 3"
    s" string 2"
    s" string 1"
    s" string 0"
    4 
;

s $array s