Hello! I came up with this code, because I could not quickly find an existing word for this. Did I miss it? If not, would it be a useful addition to the assocs vocab?
! If key exists in the assoc, change its value with quot. : ?change-value ( assoc key quot: ( value -- value' ) -- assoc' ) [ swap pick set-at ] compose [ 2dup of ] dip [ drop ] if* ; inline ! Usage example: : ?decode-opt ( assoc -- assoc' ) "opt" [ string>options ] ?change-value ; ---=====--- Александр _______________________________________________ Factor-talk mailing list Factor-talk@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/factor-talk