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

* gsubr.c (scm_gsubr_apply): Added dummy return to avoid compiler

Browse source 
warning.

* eval.c, numbers.c, unif.c, srcprop.c: Added a few curly braces
to avoid compiler warnings.

* dynl-dl.c (sysdep_dynl_func): Only define usymb if needed.
This commit is contained in:
Mikael Djurfeldt 1998-03-30 21:03:35 +00:00
parent 33b974026b
commit cda139a791
5 changed files with 72 additions and 42 deletions
Download patch file Download diff file Expand all files Collapse all files

28
libguile/srcprop.c
View file

@ -284,18 +284,26 @@ scm_set_source_property_x (obj, key, datum)
p = SCM_EOL;
}
if (scm_i_breakpoint == key)
if (SCM_FALSEP (datum))
CLEARSRCPROPBRK (SCM_NIMP (p) && SRCPROPSP (p)
{
if (SCM_FALSEP (datum))
CLEARSRCPROPBRK (SCM_NIMP (p) && SRCPROPSP (p)
? p
: SCM_WHASHSET (scm_source_whash, h,
scm_make_srcprops (0,
0,
SCM_UNDEFINED,
SCM_UNDEFINED,
p)));
else
SETSRCPROPBRK (SCM_NIMP (p) && SRCPROPSP (p)
? p
: SCM_WHASHSET (scm_source_whash, h,
scm_make_srcprops (0, 0, SCM_UNDEFINED,
SCM_UNDEFINED, p)));
else
SETSRCPROPBRK (SCM_NIMP (p) && SRCPROPSP (p)
? p
: SCM_WHASHSET (scm_source_whash, h,
scm_make_srcprops (0, 0, SCM_UNDEFINED,
SCM_UNDEFINED, p)));
scm_make_srcprops (0,
0,
SCM_UNDEFINED,
SCM_UNDEFINED,
p)));
}
else if (scm_i_line == key)
{
if (SCM_NIMP (p) && SRCPROPSP (p))