Redo EnumMap.exists .

rakudo · Jun 24, 2010 · 7e3ddca · 7e3ddca
1 parent bf5bbd4
commit 7e3ddca
Showing 1 changed file with 1 addition and 8 deletions.
diff --git a/src/core/EnumMap.pm b/src/core/EnumMap.pm
@@ -48,14 +48,7 @@ class EnumMap is Iterable does Associative {
     }
 
     method exists($key) {
-        # Wish we could do pir:: for keyed things. *sigh*
-        ?(Q:PIR {
-            $P0 = find_lex '$key'
-            $P1 = find_lex 'self'
-            $P1 = getattribute $P1, '$!storage'
-            $I0 = exists $P1[$P0]
-            %r = box $I0
-        })
+        ?pir::exists($!storage, $key);
     }
 
     method fmt($format = "%s\t%s", $sep = "\n") {