command-response ( command literal -- obj )

Vocabulary

imap.private

Inputs

command	an object
literal	an object

Outputs

obj

an object

Definition

USING: kernel ;

IN: imap.private

: command-response ( command literal -- obj )
    "ABCD" [ write-command ] [ read-response ] bi ;