combinators.extras: add callk

it keeps the quot

diff --git a/extra/combinators/extras/extras.factor b/extra/combinators/extras/extras.factor
index 36b3f0a6ef520e627a452a0bcee318e4c465617c..162948e6571217ec3276d73ad87b9b5ea23aa1b7 100644 (file)
--- a/extra/combinators/extras/extras.factor
+++ b/extra/combinators/extras/extras.factor
@@ -6,9 +6,12 @@ quotations sequences sequences.generalizations sequences.private
 sets shuffle stack-checker.transforms system words ;
 IN: combinators.extras
 
+: callk ( ..a quot: ( ..a -- ..b ) -- ..b quot )
+    dup [ call ] dip ; inline
+
 : once ( quot -- ) call ; inline
-: twice ( quot -- ) dup [ call ] dip call ; inline
-: thrice ( quot -- ) dup dup [ call ] 2dip [ call ] dip call ; inline
+: twice ( quot -- ) callk call ; inline
+: thrice ( quot -- ) callk callk call ; inline
 : forever ( quot -- ) [ t ] compose loop ; inline
 
 MACRO: cond-case ( assoc -- quot )