Fix nodes>quot

2008-11-11 19:51:12 -06:00 · 2008-11-11 19:51:12 -06:00 · d970a632bb
parent 26f309d2ae
commit d970a632bb
1 changed files with 1 additions and 1 deletions
--- a/basis/compiler/tree/debugger/debugger.factor
+++ b/basis/compiler/tree/debugger/debugger.factor
@ -86,7 +86,7 @@ M: #shuffle node>quot
        {
            [ dup [ in-r>> empty? ] [ out-r>> empty? ] bi and ]
            [
-                dup shuffle-effect pretty-shuffle
+                shuffle-effect dup pretty-shuffle
                [ % ] [ shuffle-node boa , ] ?if
            ]
        }