From 7517e39ef7fd59aa3f9a88475289e33726c0998a Mon Sep 17 00:00:00 2001
From: pmichaud <pmichaud@pobox.com>
Date: Fri, 10 Sep 2010 11:25:17 -0500
Subject: [PATCH] Remove dead check_invokable() code from perl6multisub.pmc .

---
 src/pmc/perl6multisub.pmc | 17 -----------------
 1 file changed, 17 deletions(-)

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<static int assert_invokable(PARROT_INTERP, PMC *value)>
-
-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