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

peg: less stack shuffling in define-parser-word.

clean-linux-x86-32
John Benediktsson 2019-09-27 08:24:53 -07:00
parent f2e4a36c2c
commit 06b72b8a0d
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
basis/peg/peg.factor
View File

@ -265,15 +265,14 @@ GENERIC: (compile) ( peg -- quot )
: execute-parser ( word -- result )
pos get apply-rule process-parser-result ;
: preset-parser-word ( parser -- parser word )
gensym [ >>compiled ] keep ;
: preset-parser-word ( parser -- word parser )
gensym swap over >>compiled ;
: define-parser-word ( parser word -- )
: define-parser-word ( word parser -- )
! Return the body of the word that is the compiled version
! of the parser.
2dup swap peg>> (compile) ( -- result ) define-declared
swap id>> "peg-id" set-word-prop ;
[ peg>> (compile) ( -- result ) define-declared ]
[ id>> "peg-id" set-word-prop ] 2bi ;
: compile-parser ( parser -- word )
! Look to see if the given parser has been compiled.
@ -285,7 +284,7 @@ GENERIC: (compile) ( peg -- quot )
dup compiled>> [
nip
] [
preset-parser-word [ define-parser-word ] keep
preset-parser-word dupd define-parser-word
] if* ;
: compile-parser-quot ( parser -- quot )