remove extra/new-effects
parent
5ecb754cc8
commit
8047115746
|
@ -1,17 +0,0 @@
|
||||||
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
|
|
Loading…
Reference in New Issue