diff options
| author | Thomas White <taw@physics.org> | 2023-04-22 16:43:29 +0200 |
|---|---|---|
| committer | Thomas White <taw@physics.org> | 2023-04-22 16:43:29 +0200 |
| commit | 4468902d404b7f3b6399931dbf210af817652b05 (patch) | |
| tree | 49bcd4d4cb5a9ee0fc85bc8c970be09b0ebcd352 | |
| parent | df4cc49a3b463ecaca1547593157024a0850d12b (diff) | |
osc-send: Check for integer first
Rationale: real? returns #t for an integer
| -rw-r--r-- | guile-osc.c | 6 |
1 files 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)) ) { |