1 \ tag: misc useful functions
3 \ Misc useful functions
5 \ Copyright (C) 2003 Samuel Rydh
7 \ See the file "COPYING" for further information about
8 \ the copyright and warranty status of this work.
11 \ -------------------------------------------------------------------------
12 \ statically allocated lists
13 \ -------------------------------------------------------------------------
14 \ list-head should be a variable
16 : list-add ( listhead -- )
17 here 0 , swap \ next, [data...]
19 begin dup @ while @ repeat !
22 : list-get ( listptr -- nextlistptr dictptr true | false )