[svn:parrot] r18627 - in trunk: . languages/tcl/src/grammar/expr

[coke]

Author: coke
Date: Tue May 22 17:02:39 2007
New Revision: 18627

Modified:
   trunk/   (props changed)
   trunk/languages/tcl/src/grammar/expr/past2pir.tg

Log:
[tcl] use less qw(runtime);



Modified: trunk/languages/tcl/src/grammar/expr/past2pir.tg
==============================================================================
--- trunk/languages/tcl/src/grammar/expr/past2pir.tg    (original)
+++ trunk/languages/tcl/src/grammar/expr/past2pir.tg    Tue May 22 17:02:39 2007
@@ -318,10 +318,7 @@
     %0 = %0(%2)
     goto %4
 %3:
-    $S0 = %1
-    $S0 = 'invalid command name "' . $S0
-    $S0 .= '"'
-    tcl_error $S0
+    tcl_error 'invalid command name %1'
 %4:
 END_PIR
     node['ret'] = retval
@@ -385,10 +382,7 @@
   %0  = %0(%2)
   goto %4
 %3:
-  $S0 = %1
-  $S0 = 'invalid command name "' . $S0
-  $S0 .= '"'
-  tcl_error $S0
+  tcl_error 'invalid command name %1'
 %4:
 END_PIR
     node['ret'] = retval