From 89d4c4ca595d96f831cac149cd58feeb0690ff99 Mon Sep 17 00:00:00 2001 From: Eduardo Cavazos Date: Fri, 4 Apr 2008 12:27:30 -0500 Subject: [PATCH] newfx: add a couple of variants --- extra/newfx/newfx.factor | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/extra/newfx/newfx.factor b/extra/newfx/newfx.factor index 53cda66dfc..ae92f8f6c0 100644 --- a/extra/newfx/newfx.factor +++ b/extra/newfx/newfx.factor @@ -22,11 +22,16 @@ IN: newfx ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +: nth-is-of ( i val seq -- seq ) dup >r swapd set-nth r> ; +: is-nth-of ( val i seq -- seq ) dup >r set-nth r> ; + +! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + : mutate-nth ( seq i val -- ) swap rot set-nth ; -: mutate-at-nth ( seq val i -- ) rot set-nth ; +: mutate-nth-at ( seq val i -- ) rot set-nth ; : mutate-nth-of ( i val seq -- ) swapd set-nth ; -: mutate-at-nth-of ( val i seq -- ) set-nth ; +: mutate-nth-at-of ( val i seq -- ) set-nth ; ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!