[svn:parrot] r46732 - trunk/tools/util

[coke at svn.parrot.org]

Author: coke
Date: Mon May 17 13:31:36 2010
New Revision: 46732
URL: https://trac.parrot.org/parrot/changeset/46732

Log:
Rip out broken method, replace with less PIR.
(probably broken due to recent string changes)

Modified:
   trunk/tools/util/crow.pir

Modified: trunk/tools/util/crow.pir
==============================================================================
--- trunk/tools/util/crow.pir	Mon May 17 13:12:32 2010	(r46731)
+++ trunk/tools/util/crow.pir	Mon May 17 13:31:36 2010	(r46732)
@@ -21,7 +21,7 @@
 
 
 .sub 'main' :main
-    .param pmc    args
+    .param pmc args
 
     load_bytecode 'Crow.pbc'
 
@@ -43,8 +43,10 @@
 
     .local string template, type
     type = opts['type']
-    'infix://='(type, 'text')
+    if type != '' goto got_type
+    type = 'text'
 
+got_type:
     template = 'get_template'(templates, type)
 
     .local pmc data
@@ -98,25 +100,6 @@
 .end
 
 
-.sub 'infix://='
-    .param pmc    a
-    .param pmc    b
-
-    if null a goto agg_undefined
-    $I0 = defined a
-    if $I0 goto return
-    assign a, b
-
-  return:
-    .return ()
-
-  agg_undefined:
-    $P0 = new 'Exception'
-    $P0 = "cannot assign to Null PMC!"
-    throw $P0
-.end
-
-
 # Local Variables:
 #   mode: pir
 #   fill-column: 100