if-secure-realm ( quot -- )

Vocabulary

furnace.auth

Inputs

quot

an object

Outputs

None

Definition

USING: accessors furnace.redirection kernel namespaces ;

IN: furnace.auth

: if-secure-realm ( quot -- )
    realm get secure>> [ if-secure ] [ call ] if ; inline