with-requiring ( quot -- )

Vocabulary

vocabs.private

Inputs

quot

an object

Outputs

None

Definition

USING: kernel namespaces ;

IN: vocabs.private

: with-requiring ( quot -- )
    requiring get
    [ swap call ]
    [ HS{ } clone dup requiring [ swap call ] with-variable ]
    if* ; inline