Changeset 23041 for src

Timestamp:

11/18/08 21:39:41 (7 weeks ago)

Author:

lwall

Message:

[STD] fix ordering of pre/postfix for mncharity++

Files:

• src/perl6/STD.pm (modified) (1 diff)

src/perl6/STD.pm

@@ -3554 +3554 @@
         @pre = @$tmp if $tmp = ( $M<PRE> :delete );
         my @post;
-        @post = @$tmp if $tmp = ( $M<POST> :delete );
-        loop {
-            if @pre {
-                if @post and @post[0]<O><prec> gt @pre[0]<O><prec> {
-                    push @opstack, shift @post;
-                }
-                else {
-                    push @opstack, pop @pre;
-                }
-            }
-            elsif @post {
+        @post = reverse @$tmp if $tmp = ( $M<POST> :delete );
+        while @pre and @post {
+            if @post[0]<O><prec> gt @pre[0]<O><prec> {
                 push @opstack, shift @post;
             }
             else {
-                last;
+                push @opstack, shift @pre;
             }
         }
+        push @opstack, @pre,@post;
+        push @opstack, @post;
 
         push @termstack, $here;