How to Send a Message to an Apache ActiveMQ Queue with Kawa

(define-alias Session javax.jms.Session)

(define-alias ActiveMQConnectionFactory org.apache.activemq.ActiveMQConnectionFactory)

(define connFactory (ActiveMQConnectionFactory:new))

(define conn (connFactory:createConnection))

(define sess (conn:createSession #f Session:AUTO_ACKNOWLEDGE))

(define dest (sess:createQueue "SampleQueue"))

(define prod (sess:createProducer dest))

(define msg (sess:createTextMessage "Simples Assim"))

(prod:send msg)

(conn:close)