factor: use ??if instead of ?if-old

[factor.git] / basis / compiler / tree / debugger / debugger.factor

diff --git a/basis/compiler/tree/debugger/debugger.factor b/basis/compiler/tree/debugger/debugger.factor
index ab1b267547c0ee01714a4b1fedb45967d61b01a1..a49485999127170bca012aaba643fa0017e1b262 100644 (file)
--- a/basis/compiler/tree/debugger/debugger.factor
+++ b/basis/compiler/tree/debugger/debugger.factor
@@ -84,8 +84,8 @@ M: #shuffle node>quot
         {
             [ dup { [ in-r>> empty? ] [ out-r>> empty? ] } 1&& ]
             [
-                shuffle-effect dup pretty-shuffle
-                [ % ] [ shuffle-node boa , ] ?if
+                shuffle-effect
+                [ pretty-shuffle ] [ % ] [ shuffle-node boa , ] ??if
             ]
         }
         [ drop "COMPLEX SHUFFLE" , ]