diff options
Diffstat (limited to 'guile-osc.c')
-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)); |