Handbook
Glossary
check-semantic ( result quot -- result )
Vocabulary
peg.private
Inputs
result
an
object
quot
an
object
Outputs
result
an
object
Definition
USING:
accessors
kernel
;
IN:
peg.private
:
check-semantic
( result quot -- result )
dupd
[
[
dup
ast>>
]
]
dip
[
[
drop
f
]
unless
]
compose
compose
when
;
inline