Hello. After upgrading to Chicken 4.9 our application started to crash in dbus egg. The culprit was found in changed semantics of the assoc and friends: it now checks that the supplied argument is a list. The attached patch fixes the problem. I've not checked if there are similar problems somewhere else.
-- Regards, Oleg
diff -ru dbus.orig/dbus.scm dbus/dbus.scm --- dbus.orig/dbus.scm 2014-06-19 15:02:24.000000000 +0400 +++ dbus/dbus.scm 2014-06-19 15:10:17.998005481 +0400 @@ -272,7 +272,7 @@ (define (tassq tree . keys) (let ([key-list (if (pair? (car keys)) (car keys) keys)]) (let loop ([rem-keys key-list][subtree tree]) - (if (null? rem-keys) + (if (or (not subtree) (null? rem-keys)) subtree (loop (cdr rem-keys) (let ([pr (assq (car rem-keys) subtree)])
_______________________________________________ Chicken-users mailing list [email protected] https://lists.nongnu.org/mailman/listinfo/chicken-users
