From 4e5c5b34f58483235ebd57b1a7bfeaa5f42a66dd Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Fri, 4 May 2012 21:31:23 -0700 Subject: [PATCH] memoize: change MEMO[ to push a quotation. --- basis/memoize/memoize-tests.factor | 2 +- basis/memoize/memoize.factor | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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! ;