### server.scm

(import chicken scheme)

(use dbus)

(define (query . params)
  (printf "got a query; params: ~s~%" params)
  ;; the response to the query:
  `(#t 42))

(define ctxt
  (make-context
    service: 'test.method.server
    interface: 'test.method.Type
    path: '/test/method/Object))

(enable-polling-thread! enable: #f)

(register-method ctxt "Method" query)

(define (dbus-eventloop)
  (poll-for-message)
  (thread-sleep! 0.01)
  (dbus-eventloop))

(dbus-eventloop)



### output

$ csi -s server.scm 

Error: (assq) bad argument type: #f

        Call history:

        <eval>    (make-context service: (quote test.method.server) interface: (quote test.method.Type) path: (quote /......
        <syntax>          (enable-polling-thread! enable: #f)
        <eval>    (enable-polling-thread! enable: #f)
        <syntax>          (register-method ctxt "Method" query)
        <eval>    (register-method ctxt "Method" query)
        <syntax>          (define (dbus-eventloop) (poll-for-message) (thread-sleep! 0.01) (dbus-eventloop))
        <syntax>          (##core#set! dbus-eventloop (##core#lambda () (poll-for-message) (thread-sleep! 0.01) (dbus-eventloo......
        <syntax>          (##core#lambda () (poll-for-message) (thread-sleep! 0.01) (dbus-eventloop))
        <syntax>          [dbus-eventloop] (##core#begin (poll-for-message) (thread-sleep! 0.01) (dbus-eventloop))
        <syntax>          [dbus-eventloop] (poll-for-message)
        <syntax>          [dbus-eventloop] (thread-sleep! 0.01)
        <syntax>          [dbus-eventloop] (##core#begin (dbus-eventloop))
        <syntax>          [dbus-eventloop] (dbus-eventloop)
        <syntax>          (dbus-eventloop)
        <eval>    (dbus-eventloop)
        <eval>    [dbus-eventloop] (poll-for-message)   <--