Paste: useful?

Author: mrjbq7
Mode: factor
Date: Thu, 17 Sep 2009 20:07:29
Plain Text |
: set-at-each ( assoc sequence -- assoc' )
    [ [ second ] [ first ] bi pick set-at ] each ;

: push-at-each ( assoc sequence -- assoc' )
    [ [ second ] [ first ] bi pick push-at ] each ;

New Annotation

Summary:
Author:
Mode:
Body: