# New Ticket Created by Stephen Weeks
# Please include the string: [perl #49248]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=49248 >
This is a trivial implementation of infix:// for perl6.
I'm not sure which file in src/builtins it should live in, so I added it
to misc.pir
Index: src/builtins/misc.pir
===================================================================
--- src/builtins/misc.pir (revision 24336)
+++ src/builtins/misc.pir (working copy)
@@ -11,6 +11,15 @@
.return x.'WHAT'()
.end
+.sub 'infix://'
+ .param pmc a
+ .param pmc b
+ $I0 = defined a
+ unless $I0 goto return_b
+ .return (a)
+ return_b:
+ .return (b)
+.end
# Local Variables:
# mode: pir
