(use (prefix dbus dbus:))

(define (turn-right msg) msg)

(define rc-car-context (dbus:make-context
	; bus: dbus:session-bus 	;; would be the session-bus by default anyway
	service: 'com.trolltech.CarExample
	path: '/Car
	interface: 'com.trolltech.Examples.CarInterface ))

(dbus:enable-polling-thread!
	; bus: dbus:session-bus 	;; would be the session-bus by default anyway
	enable: #f)

(dbus:register-method rc-car-context "turnRight" turn-right)

(let loop ()
	(dbus:poll-for-message)
	(loop))