From 4468902d404b7f3b6399931dbf210af817652b05 Mon Sep 17 00:00:00 2001
From: Thomas White <taw@physics.org>
Date: Sat, 22 Apr 2023 16:43:29 +0200
Subject: osc-send: Check for integer first

Rationale: real? returns #t for an integer
---
 guile-osc.c | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/guile-osc.c b/guile-osc.c
index 97dbba6..84cb285 100644
--- a/guile-osc.c
+++ b/guile-osc.c
@@ -246,10 +246,10 @@ static SCM osc_send(SCM addr_obj, SCM path_obj, SCM rest)
 	for ( i=0; i<n_args; i++ ) {
 		SCM item = scm_list_ref(rest, scm_from_int(i));
 
-		if ( scm_is_true(scm_real_p(item)) ) {
-			lo_message_add_double(message, scm_to_double(item));
-		} else if ( scm_is_true(scm_integer_p(item)) ) {
+		if ( scm_is_true(scm_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));
 		} else if ( scm_is_true(scm_string_p(item)) ) {
 			lo_message_add_string(message, scm_to_utf8_stringn(item, NULL));
 		} else if ( scm_is_true(scm_symbol_p(item)) ) {
-- 
cgit v1.2.3