memoize: cleaner test case.

diff --git a/basis/memoize/memoize-tests.factor b/basis/memoize/memoize-tests.factor
index 63d324ec53d1353120c2db2f0c0683101036243a..ee0988a7cc16b74adf1bd0cbc92fc6ac0ffd0c8f 100644 (file)
--- a/basis/memoize/memoize-tests.factor
+++ b/basis/memoize/memoize-tests.factor
@@ -35,10 +35,8 @@ unit-test
 
 [ 9 ] [ 3 "q" get call ] unit-test
 
-: foo ( x -- ) MEMO[ seconds sleep ] ;
-
 [ t ] [
     { 1/8 1/8 1/8 1/8 1/16 1/16 1/16 }
-    [ [ foo ] each ] benchmark
+    [ [ MEMO[ seconds sleep ] ] each ] benchmark
     0.18e9 0.25e9 between?
 ] unit-test