diff options
| author | Sergey Poznyakoff <gray@gnu.org.ua> | 2001-08-03 19:03:15 +0000 |
|---|---|---|
| committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2001-08-03 19:03:15 +0000 |
| commit | 462485fbc76bb674e18461d4a84a76c687a9adab (patch) | |
| tree | c6d6b7c9d4463eb12e8229d08e308acebfc9620d /libmu_scm | |
| parent | 0857c6ee65572f1e4e77089786241b5e4e0160ba (diff) | |
| download | mailutils-462485fbc76bb674e18461d4a84a76c687a9adab.tar.gz mailutils-462485fbc76bb674e18461d4a84a76c687a9adab.tar.bz2 | |
Provide mu_scm_address_init() function.
Diffstat (limited to 'libmu_scm')
| -rw-r--r-- | libmu_scm/mu_address.c | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/libmu_scm/mu_address.c b/libmu_scm/mu_address.c index a54ae4349..3b84259c4 100644 --- a/libmu_scm/mu_address.c +++ b/libmu_scm/mu_address.c @@ -45,7 +45,7 @@ _get_address_part (const char *func_name, address_get_fp fun, str = SCM_CHARS (ADDRESS); length = strlen (str); if (length == 0) - return scm_make0str(""); + return scm_makfrom0str(""); if (address_create (&addr, SCM_CHARS (ADDRESS))) return SCM_BOOL_F; @@ -58,7 +58,7 @@ _get_address_part (const char *func_name, address_get_fp fun, } if ((*fun) (addr, num, str, length, NULL) == 0) - ret = scm_make0str (str); + ret = scm_makfrom0str (str); else ret = SCM_BOOL_F; address_destroy (&addr); @@ -128,10 +128,16 @@ SCM_DEFINE (mu_address_get_count, "mu-address-get-count", 1, 0, 0, ADDRESS, SCM_ARG1, FUNC_NAME); if (address_create (&addr, SCM_CHARS (ADDRESS))) - return SCM_BOOL_F; + return SCM_MAKINUM(0); address_get_count (addr, &count); address_destroy (&addr); return scm_makenum (count); } #undef FUNC_NAME + +void +mu_scm_address_init () +{ +#include <mu_address.x> +} |