diff options
Diffstat (limited to 'test/sarray.fr')
-rw-r--r-- | test/sarray.fr | 34 |
1 files changed, 17 insertions, 17 deletions
diff --git a/test/sarray.fr b/test/sarray.fr index 5793af1e5e827..b2672c56a1c6d 100644 --- a/test/sarray.fr +++ b/test/sarray.fr @@ -1,17 +1,17 @@ -\ 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
-
+\ 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 + |