db4
Slava Pestov 2008-07-29 21:31:58 -05:00
parent ed9093c263
commit 6726b0b920
1 changed files with 1 additions and 1 deletions

View File

@ -39,7 +39,7 @@ GENERIC: effective-method ( generic -- method )
order [ class<= ] with filter reverse dup length 1 =
[ drop f ] [ second ] if ;
: next-method ( class generic -- class/f )
: next-method ( class generic -- method/f )
[ next-method-class ] keep method ;
GENERIC: next-method-quot* ( class generic combination -- quot )