[svn:parrot] r33576 - trunk/runtime/parrot/library/PGE

Author: pmichaud
Date: Sat Dec  6 13:41:39 2008
New Revision: 33576

Modified:
   trunk/runtime/parrot/library/PGE/Hs.pir

Log:
[pge]:  Update PGE/Hs.pir so it doesn't directly access private @!list


Modified: trunk/runtime/parrot/library/PGE/Hs.pir
==============================================================================
--- trunk/runtime/parrot/library/PGE/Hs.pir	(original)
+++ trunk/runtime/parrot/library/PGE/Hs.pir	Sat Dec  6 13:41:39 2008
@@ -51,8 +51,6 @@
 .namespace [ "PGE";"Hs" ]
 
 .const string PGE_FAIL = "PGE_Fail"
-.const string PGE_SUB_POS = "@!list"
-.const string PGE_SUB_NAMED = "%!hash"
 
 .sub "__onload" :load
     .local pmc load
@@ -181,8 +179,8 @@
     out .= " ["
 
   subpats:
-    capt = getattribute self, PGE_SUB_POS
-    if_null capt, subrules
+    capt = self.'list'()
+    unless capt goto subrules
     spi = 0
     spc = elements capt
     goto subpats_body

• [svn:parrot] r33576 - trunk/runtime/parrot/library/PGE by pmichaud