with-each-definition ( quot -- )

Vocabulary

python.syntax.private

Inputs

quot

an object

Outputs

None

Definition

USING: combinators effects.parser kernel lexer ;

IN: python.syntax.private

: with-each-definition ( quot -- )
    scan-token dup ";" =
    [ 2drop ] [
        scan-effect rot [ ( tok eff -- ) call-effect ] keep
        with-each-definition
    ] if ; inline recursive