mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 11:50:28 +02:00
Code Activity

* Don't use return value from SCM_SETCDR or SCM_WHASHSET.

Browse source
This commit is contained in:
Dirk Herrmann 2000-07-18 16:09:09 +00:00
parent cc4feeca51
commit 62850ef3c1
3 changed files with 33 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

32
libguile/srcprop.c
View file

@ -262,24 +262,22 @@ SCM_DEFINE (scm_set_source_property_x, "set-source-property!", 3, 0, 0,
}
if (SCM_EQ_P (scm_sym_breakpoint, key))
{
if (SCM_FALSEP (datum))
CLEARSRCPROPBRK (SRCPROPSP (p)
? p
: SCM_WHASHSET (scm_source_whash, h,
scm_make_srcprops (0,
0,
SCM_UNDEFINED,
SCM_UNDEFINED,
p)));
if (SRCPROPSP (p))
{
if (SCM_FALSEP (datum))
CLEARSRCPROPBRK (p);
else
SETSRCPROPBRK (p);
}
else
SETSRCPROPBRK (SRCPROPSP (p)
? p
: SCM_WHASHSET (scm_source_whash, h,
scm_make_srcprops (0,
0,
SCM_UNDEFINED,
SCM_UNDEFINED,
p)));
{
SCM sp = scm_make_srcprops (0, 0, SCM_UNDEFINED, SCM_UNDEFINED, p);
SCM_WHASHSET (scm_source_whash, h, sp);
if (SCM_FALSEP (datum))
CLEARSRCPROPBRK (sp);
else
SETSRCPROPBRK (sp);
}
}
else if (SCM_EQ_P (scm_sym_line, key))
{