#lang racket/base (require (planet tonyg/stomp)) (define s (stomp-connect "localhost" #:request-versions `("1.0"))) (stomp-subscribe s "SampleQueue" #f) (define m (stomp-next-message s #f)) (display (stomp-frame-body m)) (stomp-disconnect s)
#lang racket/base (require (planet tonyg/stomp)) (define s (stomp-connect "localhost" #:request-versions `("1.0"))) (stomp-subscribe s "SampleQueue" #f) (define m (stomp-next-message s #f)) (display (stomp-frame-body m)) (stomp-disconnect s)