diff options
| author | Sergey Poznyakoff <gray@gnu.org.ua> | 2002-10-13 20:34:43 +0000 |
|---|---|---|
| committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2002-10-13 20:34:43 +0000 |
| commit | aad76f4b1f9c73a1c1108489b1067a003ff3814f (patch) | |
| tree | 01b027a465ce2fc771ac7a611477601707ba9130 | |
| parent | e048e4c5dd3d813a6e5644c01defb0719720bc64 (diff) | |
| download | mailutils-aad76f4b1f9c73a1c1108489b1067a003ff3814f.tar.gz mailutils-aad76f4b1f9c73a1c1108489b1067a003ff3814f.tar.bz2 | |
(_mu_scm_package_string, in scheme mu-package-string): New global.
| -rw-r--r-- | libmu_scm/mu_scm.c | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/libmu_scm/mu_scm.c b/libmu_scm/mu_scm.c index a5767a0de..8f201289c 100644 --- a/libmu_scm/mu_scm.c +++ b/libmu_scm/mu_scm.c @@ -47,10 +47,11 @@ mu_set_variable (const char *name, SCM value) scm_c_define (name, value); } -SCM _mu_scm_package; /* STRING: PACKAGE */ -SCM _mu_scm_version; /* STRING: VERSION */ -SCM _mu_scm_mailer; /* STRING: Default mailer path. */ -SCM _mu_scm_debug; /* NUM: Default debug level. */ +SCM _mu_scm_package_string; /* STRING: PACKAGE_STRING */ +SCM _mu_scm_package; /* STRING: PACKAGE */ +SCM _mu_scm_version; /* STRING: VERSION */ +SCM _mu_scm_mailer; /* STRING: Default mailer path. */ +SCM _mu_scm_debug; /* NUM: Default debug level. */ struct format_record { char *name; @@ -179,6 +180,9 @@ mu_scm_init () _mu_scm_version = scm_makfrom0str (VERSION); mu_set_variable ("mu-version", _mu_scm_version); + _mu_scm_package_string = scm_makfrom0str (PACKAGE_STRING); + mu_set_variable ("mu-package-string", _mu_scm_package_string); + /* Create MU- attribute names */ for (i = 0; attr_kw[i].name; i++) scm_c_define(attr_kw[i].name, SCM_MAKINUM(attr_kw[i].value)); |