18 lines
337 B
Factor
18 lines
337 B
Factor
USING: assocs kernel sequences ;
|
|
IN: new-effects
|
|
|
|
: new-nth ( seq n -- elt )
|
|
swap nth ; inline
|
|
|
|
: new-set-nth ( seq obj n -- seq )
|
|
pick set-nth ; inline
|
|
|
|
: new-at ( assoc key -- elt )
|
|
swap at ; inline
|
|
|
|
: new-at* ( assoc key -- elt ? )
|
|
swap at* ; inline
|
|
|
|
: new-set-at ( assoc value key -- assoc )
|
|
pick set-at ; inline
|