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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/io/unix/launcher/parser/parser.factor
View File

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

2
basis/peg/ebnf/ebnf.factor
View File

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