[REBOL] Associative data store Re:(4)
From: ryanc:iesco-dms at: 14-Sep-2000 15:21
This little booger might be handy too. Though it has one peculiarity, dont use
blocks as keys when values might match the contents of the block key.
assoc: make object! [
list: copy []
clear: func [] [list: copy []]
set: func [key value] [ append list key append/only list reduce [value]]
get: func [key /rv] [ first select list key ]
unset: func [key] [ remove/part find t key 2 ]
]
--Ryan
Ryan Cole
Programmer Analyst
www.iesco-dms.com
707-468-5400
The Tao that can be expressed
is not the eternal Tao. -Lao Tzu
