From 9650b46688af847598f8e22cb38fe155c36e7a27 Mon Sep 17 00:00:00 2001 From: Eduardo Cavazos Date: Fri, 23 May 2008 00:11:44 -0500 Subject: [PATCH] newfx: few more words for dns --- extra/newfx/newfx.factor | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/extra/newfx/newfx.factor b/extra/newfx/newfx.factor index 2b2f916aea..abe0449d06 100644 --- a/extra/newfx/newfx.factor +++ b/extra/newfx/newfx.factor @@ -160,6 +160,16 @@ METHOD: as-mutate { object object assoc } set-at ; ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +: subseq ( seq from to -- subseq ) rot sequences:subseq ; + +! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +: key ( table val -- key ) swap assocs:value-at ; + +: key-of ( val table -- key ) assocs:value-at ; + +! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + : 1st 0 at ; : 2nd 1 at ; : 3rd 2 at ;