Luke Palmer <[EMAIL PROTECTED]> wrote:
> Anyway, here's the corrected one with a couple tests (which I should
> have written in the first place).
Applied, thanks.
leo - better late then nether
Hmph. I thought I already sent that message correcting that error in
the cmp ops.
Anyway, here's the corrected one with a couple tests (which I should
have written in the first place).
Index: core.ops
===
RCS file: /cvs/public/parro
Luke Palmer wrote:
>
> Here's some much-needed cmp ops.
[snip]
> +=item B(out INT, in NUM, in NUM)
[snip]
> +inline op cmp(out INT, in NUM, in INT) {
s/in INT/in NUM/;
--
$a=24;split//,240513;s/\B/ => /for@@=qw(ac ab bc ba cb ca
);{push(@b,$a),($a-=6)^=1 for 2..$a/6x--$|;print "[EMAIL PROTECTED
Here's some much-needed cmp ops.
Luke
Index: core.ops
===
RCS file: /cvs/public/parrot/core.ops,v
retrieving revision 1.274
diff -u -r1.274 core.ops
--- core.ops30 May 2003 01:06:23 - 1.274
+++ core.ops8 Jun 2003 03:
