17 lines
333 B
Racket
17 lines
333 B
Racket
|
#lang racket/base
|
||
|
|
|
||
|
|
(provide )
|
||
|
|
|
||
|
|
(require "private/util.rkt")
|
||
|
|
|
||
|
|
(module+ test (require rackunit))
|
||
|
|
|
||
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
|
|
|
||
|
|
(struct client (callback-url-base
|
||
|
|
|
||
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
|
|
|
||
|
|
(define (subscribe! client topic [callback #f]
|
||
|
|
|