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

New reset-memoized word

db4
Slava Pestov 2008-02-05 18:52:16 -06:00
parent cf99e405fe
commit 551b3a42a1
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
extra/memoize/memoize.factor
View File

@ -50,3 +50,6 @@ M: memoized definition "memo-quot" word-prop ;
: memoize-quot ( quot effect -- memo-quot ) : memoize-quot ( quot effect -- memo-quot )
gensym swap dupd "declared-effect" set-word-prop gensym swap dupd "declared-effect" set-word-prop
dup rot define-memoized 1quotation ; dup rot define-memoized 1quotation ;
: reset-memoized ( word -- )
"memoize" word-prop clear-assoc ;

2
extra/xmode/catalog/catalog.factor Normal file → Executable file
View File

@ -99,7 +99,7 @@ SYMBOL: rule-sets
(load-mode) dup finalize-mode ; (load-mode) dup finalize-mode ;
: reset-modes ( -- ) : reset-modes ( -- )
\ (load-mode) "memoize" word-prop clear-assoc ; \ (load-mode) reset-memoized ;
: ?glob-matches ( string glob/f -- ? ) : ?glob-matches ( string glob/f -- ? )
dup [ glob-matches? ] [ 2drop f ] if ; dup [ glob-matches? ] [ 2drop f ] if ;