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

slight cleanup in memoize

db4
Doug Coleman 2009-02-02 16:37:36 -06:00
parent e9f2197590
commit 346a61f497
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/memoize/memoize.factor
View File

@ -35,7 +35,7 @@ M: too-many-arguments summary
drop "There must be no more than 4 input and 4 output arguments" ; drop "There must be no more than 4 input and 4 output arguments" ;
: check-memoized ( word -- ) : check-memoized ( word -- )
dup #in 4 > swap #out 4 > or [ too-many-arguments ] when ; [ #in ] [ #out ] bi [ 4 > ] either? [ too-many-arguments ] when ;
: define-memoized ( word quot -- ) : define-memoized ( word quot -- )
over check-memoized over check-memoized