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