steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

memoize: change MEMO[ to push a quotation.

db4
John Benediktsson 2012-05-04 21:31:23 -07:00
parent 47bb96d194
commit 4e5c5b34f5
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/memoize/memoize-tests.factor
View File

@ -37,6 +37,6 @@ unit-test
[ t ] [ [ t ] [
{ 1/8 1/8 1/8 1/8 1/16 1/16 1/16 } { 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? 0.18e9 0.25e9 between?
] unit-test ] unit-test

2
basis/memoize/memoize.factor
View File

@ -83,4 +83,4 @@ M: memoized reset-word
\ invalidate-memoized t "no-compile" set-word-prop \ 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! ;