when-logged-in ( quot -- )

Vocabulary

managed-server.private

Inputs

quot

an object

Outputs

None

Definition

USING: accessors kernel managed-server ;

IN: managed-server.private

: when-logged-in ( quot -- )
    client logged-in?>> [ call ] [ drop ] if ; inline