diff options
Diffstat (limited to 'libguile/strports.c')
-rw-r--r-- | libguile/strports.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/strports.c b/libguile/strports.c index 40677cb10..ea19523e1 100644 --- a/libguile/strports.c +++ b/libguile/strports.c @@ -258,7 +258,7 @@ scm_mkstrport (SCM pos, SCM str, long modes, const char *caller) int str_len; SCM_ASSERT (SCM_INUMP(pos) && SCM_INUM(pos) >= 0, pos, SCM_ARG1, caller); - SCM_ASSERT (SCM_NIMP(str) && SCM_ROSTRINGP(str), str, SCM_ARG1, caller); + SCM_ASSERT (SCM_ROSTRINGP(str), str, SCM_ARG1, caller); str_len = SCM_ROLENGTH (str); if (SCM_INUM (pos) > str_len) scm_out_of_range (caller, pos); |