From 5658a570660e385cc6cd2bb609a2918544bffb7e Mon Sep 17 00:00:00 2001
From: jnthn <jnthn@jnthn.net>
Date: Thu, 9 Apr 2009 23:46:04 +0200
Subject: [PATCH] Implement * mathop val and val mathop * generating blocks.
 Left out infix:<-> for now.

---
 build/Makefile.in         | 4 ++++
 build/gen_whatever_pir.pl | 2 ++
 2 files changed, 6 insertions(+)

diff --git a/build/Makefile.in b/build/Makefile.in
index 7a2b7974f07..83e09552e2f 100644
--- a/build/Makefile.in
+++ b/build/Makefile.in
@@ -38,6 +38,7 @@ SOURCES = perl6.pir \
   src/gen_builtins.pir \
   src/gen_metaop.pir \
   src/gen_junction.pir \
+  src/gen_whatever.pir \
   src/gen_uprop.pir \
   src/parser/expression.pir \
   src/parser/methods.pir \
@@ -201,6 +202,9 @@ src/gen_metaop.pir: build/gen_metaop_pir.pl
 src/gen_junction.pir: build/gen_junction_pir.pl
 	$(PERL) build/gen_junction_pir.pl src/gen_junction.pir
 
+src/gen_whatever.pir: build/gen_whatever_pir.pl
+	$(PERL) build/gen_whatever_pir.pl src/gen_whatever.pir
+
 src/gen_uprop.pir: build/gen_uprop_pir.pl
 	$(PERL) build/gen_uprop_pir.pl src/gen_uprop.pir
 
diff --git a/build/gen_whatever_pir.pl b/build/gen_whatever_pir.pl
index c16dc65b5a6..1198e41d394 100644
--- a/build/gen_whatever_pir.pl
+++ b/build/gen_whatever_pir.pl
@@ -28,6 +28,7 @@
             $P2 = interpinfo .INTERPINFO_CURRENT_SUB
             $P1."set_outer"($P2)
             capture_lex $P1
+            "!fixup_routine_type"($P1, "Block")
             .return ($P1)
         .end
         .sub "$_" :multi(_, "Whatever")
@@ -41,6 +42,7 @@
             $P2 = interpinfo .INTERPINFO_CURRENT_SUB
             $P1."set_outer"($P2)
             capture_lex $P1
+            "!fixup_routine_type"($P1, "Block")
             .return ($P1)
         .end
     ';