Handbook
Glossary
repeat1-empty-check ( result -- result )
Vocabulary
peg
.
private
Inputs
result
an
object
Outputs
result
an
object
Definition
USING:
accessors
kernel
sequences
;
IN:
peg.private
:
repeat1-empty-check
( result -- result )
[
dup
ast>>
empty?
[
drop
f
]
when
]
[
f
]
if*
;