[svn:parrot] r44292 - trunk/runtime/parrot/library

[fperrad at svn.parrot.org]

Author: fperrad
Date: Mon Feb 22 10:07:29 2010
New Revision: 44292
URL: https://trac.parrot.org/parrot/changeset/44292

Log:
[distutils] minor

Modified:
   trunk/runtime/parrot/library/distutils.pir

Modified: trunk/runtime/parrot/library/distutils.pir
==============================================================================
--- trunk/runtime/parrot/library/distutils.pir	Mon Feb 22 09:28:39 2010	(r44291)
+++ trunk/runtime/parrot/library/distutils.pir	Mon Feb 22 10:07:29 2010	(r44292)
@@ -364,7 +364,7 @@
     if $I0 goto L11
     print "unknown target : "
     say $S0
-    run_step('usage')
+    run_step('usage', kv :flat :named)
   L12:
     pop_eh
     end
@@ -3345,12 +3345,13 @@
 .sub '_command_setup' :anon
     .param string setup
     .local string command
-    command = "parrot setup.pir"
-    $I0 = index setup, "."
+    command = "parrot "
+    $I0 = index setup, '.'
     $S0 = substr setup, $I0
     unless $S0 == '.nqp' goto L1
-    command = "parrot-nqp setup.nqp"
+    command = "parrot-nqp "
   L1:
+    command .= setup
     .return (command)
 .end