memoize: fix memoize-quot for zero input effects.
parent
9a8b1f8d8e
commit
0dc71ab053
|
@ -85,7 +85,8 @@ M: memoized reset-word
|
||||||
bi ;
|
bi ;
|
||||||
|
|
||||||
: memoize-quot ( quot effect -- memo-quot )
|
: memoize-quot ( quot effect -- memo-quot )
|
||||||
[ H{ } clone ] 2dip make-memoizer ;
|
dup in>> length zero? [ f 1array ] [ H{ } clone ] if
|
||||||
|
-rot make-memoizer ;
|
||||||
|
|
||||||
: reset-memoized ( word -- )
|
: reset-memoized ( word -- )
|
||||||
"memoize" word-prop dup sequence?
|
"memoize" word-prop dup sequence?
|
||||||
|
|
Loading…
Reference in New Issue