diff options
| author | Chouser <chouser@n01se.net> | 2015-02-14 15:18:18 -0500 |
|---|---|---|
| committer | Chouser <chouser@n01se.net> | 2015-02-21 13:22:44 -0500 |
| commit | c05d35e8dd1ebbc371d7c9239d788ddf844eae31 (patch) | |
| tree | f444aff987556c84920590beb76692f0c2887fdf /forth/misc-tests.fs | |
| parent | 69972a8399efe4abb8567526e90262e131f90d26 (diff) | |
| download | mal-c05d35e8dd1ebbc371d7c9239d788ddf844eae31.tar.gz mal-c05d35e8dd1ebbc371d7c9239d788ddf844eae31.zip | |
forth: Get rid of car/cdr style lists
Rename MalArray to MalList
Diffstat (limited to 'forth/misc-tests.fs')
| -rw-r--r-- | forth/misc-tests.fs | 13 |
1 files changed, 4 insertions, 9 deletions
diff --git a/forth/misc-tests.fs b/forth/misc-tests.fs index ede5119..2526067 100644 --- a/forth/misc-tests.fs +++ b/forth/misc-tests.fs @@ -36,13 +36,6 @@ dup 4 cells + @ 15 test= dup 5 cells + @ 20 test= -\ MalType tests - -MalList new MalList new = 0 test= - -MalList new dup MalList/car 5 swap ! MalList/car @ 5 test= - - \ Protocol tests mal-nil @@ -52,9 +45,11 @@ mal-nil 23 MalInt. mal-nil conj conj conj pr-str s" (nil (20 (42) 10) 23)" str= -1 test= -\ MalArray tests +1500 MalInt. 1500 MalInt. test= + +\ MalList tests -here 1 MalInt. , 2 MalInt. , 3 MalInt. , here>MalArray +here 1 MalInt. , 2 MalInt. , 3 MalInt. , here>MalList 4 MalInt. swap conj 5 MalInt. swap conj pr-str s" (5 4 1 2 3)" str= -1 test= |