diff options
author | Thomas White <taw@physics.org> | 2024-03-17 17:57:09 +0100 |
---|---|---|
committer | Thomas White <taw@physics.org> | 2024-03-17 17:57:09 +0100 |
commit | 37ab592e6f8e29cfae51e02ab13078765ca6d3cf (patch) | |
tree | 3ef968849d1ad37c501e05090d86cfefda8fbd39 | |
parent | 5dcb31caf88b2ccfd225ff9a4bda546d7d549a2d (diff) |
osc-send(-from): Fix check for integer type
scm_integer_p returns #t for something like 50.0. We need to recognise
50.0 as not-an-integer to send the right OSC type.
-rw-r--r-- | guile-osc.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/guile-osc.c b/guile-osc.c index 237493f..781e136 100644 --- a/guile-osc.c +++ b/guile-osc.c @@ -307,7 +307,7 @@ static lo_message make_lo_message(SCM rest) for ( i=0; i<n_args; i++ ) { SCM item = scm_list_ref(rest, scm_from_int(i)); - if ( scm_is_true(scm_integer_p(item)) ) { + if ( scm_is_true(scm_exact_integer_p(item)) ) { lo_message_add_int32(message, scm_to_int(item)); } else if ( scm_is_true(scm_real_p(item)) ) { lo_message_add_double(message, scm_to_double(item)); |