core: Add the shuffler words but without primitives.

[factor.git] / extra / shell / parser / parser.factor

diff --git a/extra/shell/parser/parser.factor b/extra/shell/parser/parser.factor
index f6ffbf03afff962927323c7f5f982c8065a76830..0608480b62f5ba0a993906f2e4c6e46ef06f32b7 100644 (file)
--- a/extra/shell/parser/parser.factor
+++ b/extra/shell/parser/parser.factor
@@ -21,7 +21,7 @@ TUPLE: factor-expr        expr ;
         suffix swap prefix >>commands
         over second >>stdin
         over 5 swap nth >>stdout
-        swap 6 swap nth >>background ;
+        6 rot nth >>background ;
 
 : ast>single-quoted-expr ( ast -- obj )
     second >string single-quoted-expr boa ;