slight cleanup in memoize

2009-02-02 16:37:36 -06:00 · 2009-02-02 16:37:36 -06:00 · 346a61f497
parent e9f2197590
commit 346a61f497
1 changed files with 1 additions and 1 deletions
--- a/basis/memoize/memoize.factor
+++ b/basis/memoize/memoize.factor
@ -35,7 +35,7 @@ M: too-many-arguments summary
    drop "There must be no more than 4 input and 4 output arguments" ;

 : 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 -- )
    over check-memoized