diff options
Diffstat (limited to 'libguile/struct.c')
| -rw-r--r-- | libguile/struct.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/struct.c b/libguile/struct.c index f3c50509a..1c039f1d5 100644 --- a/libguile/struct.c +++ b/libguile/struct.c @@ -245,7 +245,7 @@ GUILE_PROC (scm_struct_p, "struct?", 1, 0, 0, "Return #t iff @var{obj} is a structure object, else #f.") #define FUNC_NAME s_scm_struct_p { - return SCM_BOOL(SCM_NIMP (x) && SCM_STRUCTP (x)); + return SCM_BOOL(SCM_STRUCTP (x)); } #undef FUNC_NAME |