PasteRack.org
Paste # 87823
2015-03-26 14:14:13

Fork as a new paste.

Paste viewed 265 times.


Embed:

  1. #lang racket
  2.  
  3. (module receiver racket
  4.   (require mosquitto)
  5.  
  6.   (provide connect)
  7.  
  8.   (define conn (new mosquitto%))
  9.  
  10.   (define (connect)
  11.     (void (send conn subscribe ""))))
  12.  
  13. (module main racket
  14.   (require (submod ".." receiver))
  15.  
  16.   (connect)
  17.  
  18.   (displayln "Success"))
  19.  
  20. ; result arity mismatch;
  21. ; expected number of values not received
  22. ;  expected: 1
  23. ;  received: 2
  24. ;  values.:

=>