diff options
Diffstat (limited to 'libguile/inline.h')
-rw-r--r-- | libguile/inline.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/inline.h b/libguile/inline.h index 6b1cf5e77..315240ed4 100644 --- a/libguile/inline.h +++ b/libguile/inline.h @@ -111,7 +111,7 @@ scm_is_pair (SCM x) SCM_INLINE_IMPLEMENTATION int scm_is_string (SCM x) { - return SCM_NIMP (x) && (SCM_TYP7 (x) == scm_tc7_string); + return SCM_HAS_TYP7 (x, scm_tc7_string); } /* Port I/O. */ |