From a36307a11b7f4d4a1cb60cb7d4a33d2910a70916 Mon Sep 17 00:00:00 2001 From: Eduardo Cavazos Date: Sat, 14 Jun 2008 14:44:32 -0500 Subject: [PATCH] newfx: minor fix --- extra/newfx/newfx.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/extra/newfx/newfx.factor b/extra/newfx/newfx.factor index 0504744240..e7d92bba58 100644 --- a/extra/newfx/newfx.factor +++ b/extra/newfx/newfx.factor @@ -192,6 +192,6 @@ METHOD: as-mutate { object object assoc } set-at ; ! indicate that this is the main objective of the word, as a side effect. : adjoin ( seq elt -- seq ) over sets:adjoin ; -: adjoin-on ( elt seq -- seq ) sets:adjoin ; -: adjoined ( set elt -- set ) swap sets:adjoin ; +: adjoin-on ( elt seq -- seq ) tuck sets:adjoin ; +: adjoined ( set elt -- ) swap sets:adjoin ; : adjoined-on ( elt set -- ) sets:adjoin ; \ No newline at end of file