steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix nodes>quot

db4
Slava Pestov 2008-11-11 19:51:12 -06:00
parent 26f309d2ae
commit d970a632bb
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/compiler/tree/debugger/debugger.factor
View File

@ -86,7 +86,7 @@ M: #shuffle node>quot
{ {
[ dup [ in-r>> empty? ] [ out-r>> empty? ] bi and ] [ dup [ in-r>> empty? ] [ out-r>> empty? ] bi and ]
[ [
dup shuffle-effect pretty-shuffle shuffle-effect dup pretty-shuffle
[ % ] [ shuffle-node boa , ] ?if [ % ] [ shuffle-node boa , ] ?if
] ]
} }