dmbcs/guile
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* Minor cleanup/optimization for char=?.

Browse source 
* Cleanup CCLO handling.
This commit is contained in:
Dirk Herrmann 2000-12-04 17:19:35 +00:00
commit 362306b956
4 changed files with 45 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/chars.c
View file

@ -66,9 +66,9 @@ SCM_DEFINE1 (scm_char_eq_p, "char=?", scm_tc7_rpsubr,
"Return @code{#t} iff @var{x} is the same character as @var{y}, else @code{#f}.")
#define FUNC_NAME s_scm_char_eq_p
{
SCM_VALIDATE_CHAR (1,x);
SCM_VALIDATE_CHAR (2,y);
return SCM_BOOL(SCM_CHAR(x) == SCM_CHAR(y));
SCM_VALIDATE_CHAR (1, x);
SCM_VALIDATE_CHAR (2, y);
return SCM_BOOL (SCM_EQ_P (x, y));
}
#undef FUNC_NAME