[svn:parrot] r47374 - branches/gsoc_past_optimization/runtime/parrot/library/PAST

tcurtis at svn.parrot.org tcurtis at svn.parrot.org
Sat Jun 5 03:10:19 UTC 2010


Author: tcurtis
Date: Sat Jun  5 03:10:19 2010
New Revision: 47374
URL: https://trac.parrot.org/parrot/changeset/47374

Log:
Remove some debugging output statements I forgot to remove.

Modified:
   branches/gsoc_past_optimization/runtime/parrot/library/PAST/Pattern.nqp

Modified: branches/gsoc_past_optimization/runtime/parrot/library/PAST/Pattern.nqp
==============================================================================
--- branches/gsoc_past_optimization/runtime/parrot/library/PAST/Pattern.nqp	Sat Jun  5 02:27:21 2010	(r47373)
+++ branches/gsoc_past_optimization/runtime/parrot/library/PAST/Pattern.nqp	Sat Jun  5 03:10:19 2010	(r47374)
@@ -66,12 +66,9 @@
     }
     
     sub check ($patt, $val) {
-        pir::load_bytecode('Data/Dumper.pbc');
-        my $dumper := pir::new__PP(Data::Dumper);
         my $result := 1;
         if (pir::defined__IP($patt)) {
             if (!pir::defined__IP($val)) {
-                say("bar");
                 $result := 0;
             }
             elsif (pir::can__IPs($patt, "ACCEPTS")) {
@@ -86,9 +83,6 @@
                 }
             }
         }
-        $dumper.dumper($patt);
-        $dumper.dumper($val);
-        say($result);
         $result;
     }
 


More information about the parrot-commits mailing list