swap over == tuck; dupd swap == over

db4
Slava Pestov 2008-11-10 00:16:11 -06:00
parent 28e397420d
commit b8eebd5c2b
2 changed files with 2 additions and 2 deletions

View File

@ -29,5 +29,5 @@ IN: io.unix.launcher.parser
PEG: tokenize-command ( command -- ast/f )
'argument' " " token repeat1 list-of
" " token repeat0 swap over pack
" " token repeat0 tuck pack
just ;

View File

@ -487,7 +487,7 @@ M: ebnf-terminal (transform) ( ast -- parser )
M: ebnf-foreign (transform) ( ast -- parser )
dup word>> search
[ "Foreign word '" swap word>> append "' not found" append throw ] unless*
swap rule>> [ main ] unless* dupd swap rule [
swap rule>> [ main ] unless* over rule [
nip
] [
execute