mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-03 13:20:26 +02:00
Code Activity

* srcprop.c (scm_set_source_property_x): Bugfix: Convert line and

Browse source 
column inums to native form.
This commit is contained in:
Mikael Djurfeldt 1999-03-12 10:26:26 +00:00
parent baa47a940d
commit a9dbb9fd43
1 changed files with 10 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

14
libguile/srcprop.c
View file

@ -305,19 +305,25 @@ scm_set_source_property_x (obj, key, datum)
} }
else if (scm_i_line == key) else if (scm_i_line == key)
{ {
SCM_ASSERT (SCM_INUMP (datum),
datum, SCM_ARG3, s_set_source_property_x);
if (SCM_NIMP (p) && SRCPROPSP (p)) if (SCM_NIMP (p) && SRCPROPSP (p))
SETSRCPROPLINE (p, datum); SETSRCPROPLINE (p, SCM_INUM (datum));
else else
SCM_WHASHSET (scm_source_whash, h, SCM_WHASHSET (scm_source_whash, h,
scm_make_srcprops (datum, 0, SCM_UNDEFINED, SCM_UNDEFINED, p)); scm_make_srcprops (SCM_INUM (datum), 0,
SCM_UNDEFINED, SCM_UNDEFINED, p));
} }
else if (scm_i_column == key) else if (scm_i_column == key)
{ {
SCM_ASSERT (SCM_INUMP (datum),
datum, SCM_ARG3, s_set_source_property_x);
if (SCM_NIMP (p) && SRCPROPSP (p)) if (SCM_NIMP (p) && SRCPROPSP (p))
SETSRCPROPCOL (p, datum); SETSRCPROPCOL (p, SCM_INUM (datum));
else else
SCM_WHASHSET (scm_source_whash, h, SCM_WHASHSET (scm_source_whash, h,
scm_make_srcprops (0, datum, SCM_UNDEFINED, SCM_UNDEFINED, p)); scm_make_srcprops (0, SCM_INUM (datum),
SCM_UNDEFINED, SCM_UNDEFINED, p));
} }
else if (scm_i_filename == key) else if (scm_i_filename == key)
{ {