memoize: change MEMO[ to push a quotation.

diff --git a/basis/memoize/memoize-tests.factor b/basis/memoize/memoize-tests.factor
index ee0988a7cc16b74adf1bd0cbc92fc6ac0ffd0c8f..2ad14e8cec4c184a1d692598e63b378679c673c0 100644 (file)
--- 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 147354663666b3504e6e343340a6d66f5db4eb29..a595d5d3d965567bac8e1eb7f7dcfc7204e9ff9a 100644 (file)
--- 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! ;