diff options
| author | Pedro F. Giffuni <pfg@FreeBSD.org> | 2015-05-12 03:27:06 +0000 |
|---|---|---|
| committer | Pedro F. Giffuni <pfg@FreeBSD.org> | 2015-05-12 03:27:06 +0000 |
| commit | f4e75c6395310fa4b119d3eaa9a4a9f8913df200 (patch) | |
| tree | 2b015c205d81fa2431f0c36d7d9e903088a56d1c /test/sarray.fr | |
| parent | be98e1ae3decabdd852fbe6496166aaa9acfbf9e (diff) | |
Notes
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 5793af1e5e82..b2672c56a1c6 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 + |