diff options
Diffstat (limited to 'forth/types.fs')
| -rw-r--r-- | forth/types.fs | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/forth/types.fs b/forth/types.fs index bf159ad..5b8a211 100644 --- a/forth/types.fs +++ b/forth/types.fs @@ -309,6 +309,12 @@ drop MalList new 0 over MalList/count ! constant MalList/Empty +: MalList/rest { list -- list } + MalList new + list MalList/start @ cell+ over MalList/start ! + list MalList/count @ 1- over MalList/count ! ; + + MalType% cell% field MalVector/list deftype MalVector |