[svn:parrot] r43452 - branches/tt389_fix/runtime/parrot/library/Stream

[chromatic at svn.parrot.org]

Author: chromatic
Date: Thu Jan 14 08:12:57 2010
New Revision: 43452
URL: https://trac.parrot.org/parrot/changeset/43452

Log:
[library] Made Stream::Base work with TT #389 fix.

Modified:
   branches/tt389_fix/runtime/parrot/library/Stream/Base.pir

Modified: branches/tt389_fix/runtime/parrot/library/Stream/Base.pir
==============================================================================
--- branches/tt389_fix/runtime/parrot/library/Stream/Base.pir	Thu Jan 14 08:09:55 2010	(r43451)
+++ branches/tt389_fix/runtime/parrot/library/Stream/Base.pir	Thu Jan 14 08:12:57 2010	(r43452)
@@ -36,10 +36,11 @@
 .end
 
 .sub init :vtable :method
-    .local pmc close
+    .local pmc cl, close
+    cl    = get_class [ 'Stream'; 'Base' ]
+    close = cl.'find_method'( 'close' )
 
     # call our own close
-    close = get_hll_global ['Stream'; 'Base'], 'close'
     close(self)
 .end
 
@@ -348,7 +349,7 @@
 
 =head1 COPYRIGHT
 
-Copyright (C) 2004-2009, Parrot Foundation.
+Copyright (C) 2004-2010, Parrot Foundation.
 
 =cut