diff options
| author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-12-04 17:19:35 +0000 |
|---|---|---|
| committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-12-04 17:19:35 +0000 |
| commit | 362306b956fae0a8f7c345ef699a1376b24810f2 (patch) | |
| tree | 52ac29ef2e4b38983dc37ca8589557797a868f1c /libguile/chars.c | |
| parent | 8c921d5c8df4a6621619b85d3b94e7c6d5f5bde7 (diff) | |
| download | guile-362306b956fae0a8f7c345ef699a1376b24810f2.tar.gz | |
* Minor cleanup/optimization for char=?.
* Cleanup CCLO handling.
Diffstat (limited to 'libguile/chars.c')
| -rw-r--r-- | libguile/chars.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/chars.c b/libguile/chars.c index 38257012b..9ca1fac6b 100644 --- a/libguile/chars.c +++ b/libguile/chars.c @@ -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 |