local includes
This commit is contained in:
@@ -4,8 +4,8 @@
|
|||||||
racket/port
|
racket/port
|
||||||
racket/tcp
|
racket/tcp
|
||||||
xml
|
xml
|
||||||
upnp/media-server
|
"../media-server.rkt"
|
||||||
upnp/private/model)
|
"..//private/model.rkt")
|
||||||
|
|
||||||
(define listener (tcp-listen 0 4 #t "127.0.0.1"))
|
(define listener (tcp-listen 0 4 #t "127.0.0.1"))
|
||||||
(define-values (_local-host port _remote-host _remote-port)
|
(define-values (_local-host port _remote-host _remote-port)
|
||||||
|
|||||||
+1
-7
@@ -4,13 +4,7 @@
|
|||||||
racket/port
|
racket/port
|
||||||
racket/string
|
racket/string
|
||||||
racket/tcp
|
racket/tcp
|
||||||
upnp
|
"../main.rkt")
|
||||||
upnp/media-renderer
|
|
||||||
upnp/services/av-transport
|
|
||||||
upnp/services/connection-manager
|
|
||||||
upnp/services/content-directory
|
|
||||||
upnp/services/rendering-control
|
|
||||||
upnp/private/model)
|
|
||||||
|
|
||||||
(define av1
|
(define av1
|
||||||
(upnp-service "urn:schemas-upnp-org:service:AVTransport:1"
|
(upnp-service "urn:schemas-upnp-org:service:AVTransport:1"
|
||||||
|
|||||||
Reference in New Issue
Block a user