Implement * mathop val and val mathop * generating blocks. Left out i…

…nfix:<-> for now.
rakudo · Apr 9, 2009 · 5658a57 · 5658a57
1 parent a514db6
commit 5658a57
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 0 deletions.
diff --git 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
@@ -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
     ';