memoize: change MEMO[ to push a quotation.

2012-05-04 21:31:23 -07:00 · 2012-05-04 21:31:23 -07:00 · 425119ccde
parent 59edc3803e
commit 425119ccde
2 changed files with 2 additions and 2 deletions
--- 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
--- 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! ;