test-two-scheduler.scm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

(use-modules ((gnunet sync)))


(define (run-search)
  "Run a background thread to look for new messages"
  (call-with-new-thread
   (lambda ()
     (pk "starting thread")
     (let loop ()
       (search "etc/p2.conf" '("c3b2://v1/message"))
       (loop)
       (sleep 1)))))

(run-search)
(run-search)