From 37ab592e6f8e29cfae51e02ab13078765ca6d3cf Mon Sep 17 00:00:00 2001
From: Thomas White <taw@physics.org>
Date: Sun, 17 Mar 2024 17:57:09 +0100
Subject: 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.
---
 guile-osc.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'guile-osc.c')

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));
-- 
cgit v1.2.3