Oh, shucks,
a bug:
>assoc-add: func [assoc [block!] candidates [block!] /local found] [
> if is-assoc? assoc [
> foreach [key value] candidates [
> either found: contains-key? assoc key [
> insert at assoc/values index? found value
The line
> insert at assoc/values index? found value
Should be
change at assoc/values index? found value
> ][
> insert assoc/keys key
> insert assoc/values value
> ]
> ]
> return true
> ]
> return false
>]
To quote Joel, "silly me" :-).
;- Elan [ : - ) ]
author of REBOL: THE OFFICIAL GUIDE
REBOL Press: The Official Source for REBOL Books
http://www.REBOLpress.com
visit me at http://www.TechScribe.com
