Better renderer and server support and higher level functions. Seek solutions.

2026-08-08 14:27:29 +02:00
parent 91c6755bb1
commit 3fbcdb09d5
10 changed files with 324 additions and 5 deletions
@@ -150,7 +150,9 @@
    (upnp-device-tree (upnp-describe responses #:dns? dns?))))

 (define (device-key device)
-  (or (upnp-device-udn device)
+  (or (and (upnp-device-udn device)
+           (list (upnp-device-udn device)
+                 (upnp-device-type device)))
      (list (upnp-device-location device)
            (upnp-device-type device)
            (upnp-device-friendly-name device))))