do-hooks ( symbol -- )

Vocabulary

init

Inputs

symbol

an object

Outputs

None

Definition

USING: assocs combinators kernel namespaces ;

IN: init

: do-hooks ( symbol -- )
    get [ nip ( -- ) call-effect ] assoc-each ;