Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search

[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 707-468-5400 The Tao that can be expressed is not the eternal Tao. -Lao Tzu