diff --git a/basis/memoize/memoize-tests.factor b/basis/memoize/memoize-tests.factor index ee0988a7cc..2ad14e8cec 100644 --- a/basis/memoize/memoize-tests.factor +++ b/basis/memoize/memoize-tests.factor @@ -37,6 +37,6 @@ unit-test [ t ] [ { 1/8 1/8 1/8 1/8 1/16 1/16 1/16 } - [ [ MEMO[ seconds sleep ] ] each ] benchmark + [ MEMO[ seconds sleep ] each ] benchmark 0.18e9 0.25e9 between? ] unit-test diff --git a/basis/memoize/memoize.factor b/basis/memoize/memoize.factor index 1473546636..a595d5d3d9 100644 --- a/basis/memoize/memoize.factor +++ b/basis/memoize/memoize.factor @@ -83,4 +83,4 @@ M: memoized reset-word \ invalidate-memoized t "no-compile" set-word-prop -SYNTAX: MEMO[ parse-quotation dup infer memoize-quot append ; +SYNTAX: MEMO[ parse-quotation dup infer memoize-quot suffix! ;