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
[email protected]
https://lists.sourceforge.net/lists/listinfo/factor-talk
