nip most uses of tuck from extra

[factor.git] / extra / project-euler / ave-time / ave-time.factor

diff --git a/extra/project-euler/ave-time/ave-time.factor b/extra/project-euler/ave-time/ave-time.factor
index dc521d4d70f0bd2520877b2f3c684439ace125f0..cc326c1afe9bd40c14e5c4e914d07cdd81116e0a 100644 (file)
--- a/extra/project-euler/ave-time/ave-time.factor
+++ b/extra/project-euler/ave-time/ave-time.factor
@@ -11,8 +11,8 @@ IN: project-euler.ave-time
     [
         [ datastack ]
         [
-            '[ _ gc benchmark 1000 / , ] tuck
-            '[ _ _ with-datastack drop ]
+            '[ _ gc benchmark 1000 / , ]
+            [ '[ _ _ with-datastack drop ] ] keep swap
         ]
         [ 1 - ] tri* swap times call
     ] { } make ; inline