shell.parser: Fix bug in ast>pipeline-expr

db4
Eduardo Cavazos 2008-05-16 17:09:38 -05:00
parent 2a5dcaaef0
commit 3f121f8809
1 changed files with 2 additions and 2 deletions

View File

@ -23,8 +23,8 @@ TUPLE: factor-expr expr ;
pipeline-expr new pipeline-expr new
over [ 1st ] [ 4th [ 1st ] map ] [ 5th ] tri suffix prefix-on >>commands over [ 1st ] [ 4th [ 1st ] map ] [ 5th ] tri suffix prefix-on >>commands
over 2nd >>stdin over 2nd >>stdin
over 5th >>stdout over 6th >>stdout
swap 6th >>background ; swap 7th >>background ;
: ast>single-quoted-expr ( ast -- obj ) : ast>single-quoted-expr ( ast -- obj )
2nd >string single-quoted-expr boa ; 2nd >string single-quoted-expr boa ;