swap over == tuck; dupd swap == over
parent
28e397420d
commit
b8eebd5c2b
|
@ -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 ;
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue