Changeset 23043 for src

Timestamp:

11/19/08 00:22:49 (7 weeks ago)

Author:

lwall

Message:

[STD] and of course, since I reversed things, the prec test is backwards...

Files:

• src/perl6/STD.pm (modified) (2 diffs)

src/perl6/STD.pm

@@ -3550 +3550 @@
         # interleave prefix and postfix, pretend they're infixish
         my $M = $here;
+
+        # note that we push loose stuff onto opstack before tight stuff
         my @pre;
         my $tmp;
@@ -3556 +3558 @@
         @post = reverse @$tmp if $tmp = ( $M<POST> :delete );
         while @pre and @post {
-            if @post[0]<O><prec> gt @pre[0]<O><prec> {
+            if @post[0]<O><prec> le @pre[0]<O><prec> {
                 push @opstack, shift @post;
             }