diff options
| author | Thomas White <taw@physics.org> | 2023-04-22 13:56:14 +0200 |
|---|---|---|
| committer | Thomas White <taw@physics.org> | 2023-04-22 16:06:20 +0200 |
| commit | 24ddf3f4bd754478a7880586b93dc1342a34001b (patch) | |
| tree | 5d034f020219bf79e13d4d0ef4d87e9617a56b81 /guile-osc.c | |
| parent | 09c71fef227fcd1d6a8b4142ceaa0cbe66f1aab7 (diff) | |
make-osc-address: Take URL instead of port number
Diffstat (limited to 'guile-osc.c')
| -rw-r--r-- | guile-osc.c | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/guile-osc.c b/guile-osc.c index 4174697..75f1a2b 100644 --- a/guile-osc.c +++ b/guile-osc.c @@ -59,12 +59,11 @@ static void finalize_osc_server_thread(SCM obj) } -static SCM make_osc_address(SCM port_obj) +static SCM make_osc_address(SCM url_obj) { lo_address addr; - const char *port = scm_to_utf8_stringn(port_obj, NULL); - addr = lo_address_new(NULL, port); - return scm_make_foreign_object_1(osc_address_type, addr); + const char *url = scm_to_utf8_stringn(url_obj, NULL); + addr = lo_address_new_from_url(url); if ( addr == NULL ) { return SCM_BOOL_F; } else { |