diff options
Diffstat (limited to 'libguile/srcprop.c')
-rw-r--r-- | libguile/srcprop.c | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/libguile/srcprop.c b/libguile/srcprop.c index 4e1c02834..a237fb06c 100644 --- a/libguile/srcprop.c +++ b/libguile/srcprop.c @@ -260,22 +260,20 @@ SCM_DEFINE (scm_set_source_property_x, "set-source-property!", 3, 0, 0, } else if (SCM_EQ_P (scm_sym_line, key)) { - SCM_VALIDATE_INUM (3, datum); if (SRCPROPSP (p)) - SETSRCPROPLINE (p, SCM_INUM (datum)); + SETSRCPROPLINE (p, scm_to_int (datum)); else SCM_WHASHSET (scm_source_whash, h, - scm_make_srcprops (SCM_INUM (datum), 0, + scm_make_srcprops (scm_to_int (datum), 0, SCM_UNDEFINED, SCM_UNDEFINED, p)); } else if (SCM_EQ_P (scm_sym_column, key)) { - SCM_VALIDATE_INUM (3, datum); if (SRCPROPSP (p)) - SETSRCPROPCOL (p, SCM_INUM (datum)); + SETSRCPROPCOL (p, scm_to_int (datum)); else SCM_WHASHSET (scm_source_whash, h, - scm_make_srcprops (0, SCM_INUM (datum), + scm_make_srcprops (0, scm_to_int (datum), SCM_UNDEFINED, SCM_UNDEFINED, p)); } else if (SCM_EQ_P (scm_sym_filename, key)) |