with-stomp-transaction ( transaction quot -- )

Vocabulary

stomp

Inputs

transaction	an object
quot	an object

Outputs

None

Definition

USING: continuations kernel ;

IN: stomp

:: with-stomp-transaction ( transaction quot -- )
    [
        transaction stomp-begin write-frame quot call
        transaction stomp-abort write-frame
    ] [ drop transaction stomp-abort write-frame ] recover ;
    inline