diff --git a/src/pmc/perl6multisub.pmc b/src/pmc/perl6multisub.pmc index 3236102b966..0c91aa25306 100644 --- a/src/pmc/perl6multisub.pmc +++ b/src/pmc/perl6multisub.pmc @@ -790,23 +790,6 @@ static PMC *find_many_candidates_with_arg_list(PARROT_INTERP, PMC *SELF, PMC *ca } - -/* - -=item C - -Checks if a PMC is invokable; returns a true value if so and a false value if -not. - -=cut - -*/ -static int check_invokable(PARROT_INTERP, PMC *value) { - STRING * const _sub = CONST_STRING(interp, "Sub"); - STRING * const _nci = CONST_STRING(interp, "NCI"); - return VTABLE_isa(interp, value, _sub) || VTABLE_isa(interp, value, _nci); -} - /* =back