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

* Redundant SCM_IMP test removed.

Browse source
This commit is contained in:
Dirk Herrmann 2000-09-12 12:50:13 +00:00
parent 415052599e
commit 8e93e199f8
2 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/ChangeLog
View file

@ -1,3 +1,7 @@
2000-09-12 Dirk Herrmann <D.Herrmann@tu-bs.de>
* symbols.c (scm_symbol_p): Eliminate redundant SCM_IMP test.
2000-09-12 Dirk Herrmann <D.Herrmann@tu-bs.de>
This patch unifies the formerly distinct ssymbol and msymbol types

5
libguile/symbols.c
View file

@ -425,12 +425,11 @@ scm_symbol_value0 (const char *name)
}
SCM_DEFINE (scm_symbol_p, "symbol?", 1, 0, 0,
(SCM obj),
(SCM obj),
"Returns @t{#t} if @var{obj} is a symbol, otherwise returns @t{#f}. (r5rs)")
#define FUNC_NAME s_scm_symbol_p
{
if SCM_IMP(obj) return SCM_BOOL_F;
return SCM_BOOL(SCM_SYMBOLP(obj));
return SCM_BOOL (SCM_SYMBOLP (obj));
}
#undef FUNC_NAME