diff options
| author | Sergey Poznyakoff <gray@gnu.org.ua> | 2002-09-10 12:03:42 +0000 |
|---|---|---|
| committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2002-09-10 12:03:42 +0000 |
| commit | 19be4447de8711a0480455d2bd5f902813b4db10 (patch) | |
| tree | a6cbedf81dcd5e257f57346308946f2127ce31a0 /libmu_scm/mu_mailbox.c | |
| parent | 59e7b2d4cd24c1a202729612fca35113e419e1e6 (diff) | |
| download | mailutils-19be4447de8711a0480455d2bd5f902813b4db10.tar.gz mailutils-19be4447de8711a0480455d2bd5f902813b4db10.tar.bz2 | |
Upgrade to guile 1.6.0
Diffstat (limited to 'libmu_scm/mu_mailbox.c')
| -rw-r--r-- | libmu_scm/mu_mailbox.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libmu_scm/mu_mailbox.c b/libmu_scm/mu_mailbox.c index 301ab7140..f6b2baa5b 100644 --- a/libmu_scm/mu_mailbox.c +++ b/libmu_scm/mu_mailbox.c @@ -117,7 +117,7 @@ SCM_DEFINE (mu_mailbox_open, "mu-mailbox-open", 2, 0, 0, SCM_ASSERT (SCM_NIMP (MODE) && SCM_STRINGP (MODE), MODE, SCM_ARG2, FUNC_NAME); - for (mode_str = SCM_CHARS (MODE); *mode_str; mode_str++) + for (mode_str = SCM_STRING_CHARS (MODE); *mode_str; mode_str++) switch (*mode_str) { case 'r': @@ -137,7 +137,7 @@ SCM_DEFINE (mu_mailbox_open, "mu-mailbox-open", 2, 0, 0, if (mode & MU_STREAM_READ && mode & MU_STREAM_WRITE) mode = (mode & ~(MU_STREAM_READ | MU_STREAM_WRITE)) | MU_STREAM_RDWR; - if (mailbox_create_default (&mbox, SCM_CHARS (URL)) != 0) + if (mailbox_create_default (&mbox, SCM_STRING_CHARS (URL)) != 0) return SCM_BOOL_F; if (mailbox_open (mbox, mode) != 0) @@ -197,7 +197,7 @@ SCM_DEFINE (mu_mailbox_get_port, "mu-mailbox-get-port", 2, 0, 0, if (mailbox_get_stream (mum->mbox, &stream)) return SCM_BOOL_F; return mu_port_make_from_stream (MBOX, stream, - scm_mode_bits (SCM_CHARS (MODE))); + scm_mode_bits (SCM_STRING_CHARS (MODE))); } #undef FUNC_NAME |