[svn:parrot] r39860 - trunk/compilers/pge

[cotto at svn.parrot.org]

Author: cotto
Date: Wed Jul  1 22:41:34 2009
New Revision: 39860
URL: https://trac.parrot.org/parrot/changeset/39860

Log:
[pge] fix the pge demo

Modified:
   trunk/compilers/pge/demo.pir

Modified: trunk/compilers/pge/demo.pir
==============================================================================
--- trunk/compilers/pge/demo.pir	Wed Jul  1 22:39:50 2009	(r39859)
+++ trunk/compilers/pge/demo.pir	Wed Jul  1 22:41:34 2009	(r39860)
@@ -58,7 +58,7 @@
   match_result:
     unless match goto match_fail
     print "match succeeded\n"
-    $P0 = find_global "_dumper"
+    $P0 = get_global "_dumper"
     $P0(match, "$/")
     goto read_loop
   match_fail:
@@ -90,7 +90,7 @@
   save_rule:
     if_null rulesub, match_nopattern
     x = substr x, 5
-    store_global x, rulesub
+    set_global x, rulesub
     print "Saved as "
     print x
     print "\n"
@@ -104,7 +104,7 @@
 
   print_exp:
     if_null rulesub, match_nopattern
-    $P0 = find_global "_dumper"
+    $P0 = get_global "_dumper"
     $P0(exp, "exp")
     goto read_loop