dbus problem added by retroj on Tue Aug 18 20:25:48 2015
### 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) <--