[svn:parrot] r47104 - in trunk: runtime/parrot/library t/library

[fperrad at svn.parrot.org]

Author: fperrad
Date: Sat May 29 07:05:24 2010
New Revision: 47104
URL: https://trac.parrot.org/parrot/changeset/47104

Log:
[distutils] fix end of setup()

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

Modified: trunk/runtime/parrot/library/distutils.pir
==============================================================================
--- trunk/runtime/parrot/library/distutils.pir	Sat May 29 07:02:52 2010	(r47103)
+++ trunk/runtime/parrot/library/distutils.pir	Sat May 29 07:05:24 2010	(r47104)
@@ -342,7 +342,7 @@
     run_step('usage', kv :flat :named)
   L12:
     pop_eh
-    end
+    .return ()
   _handler:
     .local pmc ex
     .get_results (ex)

Modified: trunk/t/library/distutils.t
==============================================================================
--- trunk/t/library/distutils.t	Sat May 29 07:02:52 2010	(r47103)
+++ trunk/t/library/distutils.t	Sat May 29 07:05:24 2010	(r47104)
@@ -29,8 +29,9 @@
     .const 'Sub' build_hll = 'build_hll'
     $P1['hll_hook'] = build_hll
 
-    say "1..3"
+    say "1..4"
     setup($P0 :flat, $P1 :flat :named)
+    say "ok 4 - end"
 .end
 
 .sub 'prebuild' :anon
@@ -38,14 +39,14 @@
     say "ok 1 - prebuild"
 .end
 
-.sub 'postbuild' :anon
+.sub 'build_hll' :anon
     .param pmc kv :slurpy :named
-    say "ok 3 - postbuild"
+    say "ok 2 - build_hll"
 .end
 
-.sub 'build_hll' :anon
+.sub 'postbuild' :anon
     .param pmc kv :slurpy :named
-    say "ok 2 - build_hll"
+    say "ok 3 - postbuild"
 .end
 
 # Local Variables: