X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=extra%2Fassocs%2Fextras%2Fextras.factor;h=8aee7d6d9db110e65d14d15979093f9d2586ae93;hp=1314f8b616f4b7dbd5858dd0842c050655450e22;hb=e766b83ac0fcc5857602dcfae2791be3b93602b6;hpb=5eb57c5e08f31278dc07e2f98d25c69afbe0c653 diff --git a/extra/assocs/extras/extras.factor b/extra/assocs/extras/extras.factor index 1314f8b616..8aee7d6d9d 100644 --- a/extra/assocs/extras/extras.factor +++ b/extra/assocs/extras/extras.factor @@ -7,7 +7,7 @@ IN: assocs.extras : push-at-each ( value keys assoc -- ) '[ _ push-at ] with each ; inline -: deep-at ( assoc seq -- value/f ) +: deep-of ( assoc seq -- value/f ) [ of ] each ; inline : substitute! ( seq assoc -- seq )