diff --git a/core/generic/generic.factor b/core/generic/generic.factor index a621c7fa91..80cf790b23 100755 --- a/core/generic/generic.factor +++ b/core/generic/generic.factor @@ -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 )