summaryrefslogtreecommitdiffabout
path: root/libmu_scm
authorSergey Poznyakoff <gray@gnu.org.ua>2002-10-13 20:34:43 (GMT)
committer Sergey Poznyakoff <gray@gnu.org.ua>2002-10-13 20:34:43 (GMT)
commitaad76f4b1f9c73a1c1108489b1067a003ff3814f (patch) (side-by-side diff)
tree01b027a465ce2fc771ac7a611477601707ba9130 /libmu_scm
parente048e4c5dd3d813a6e5644c01defb0719720bc64 (diff)
downloadmailutils-aad76f4b1f9c73a1c1108489b1067a003ff3814f.tar.gz
mailutils-aad76f4b1f9c73a1c1108489b1067a003ff3814f.tar.bz2
(_mu_scm_package_string, in scheme mu-package-string): New global.
Diffstat (limited to 'libmu_scm') (more/less context) (ignore whitespace changes)
-rw-r--r--libmu_scm/mu_scm.c12
1 files changed, 8 insertions, 4 deletions
diff --git a/libmu_scm/mu_scm.c b/libmu_scm/mu_scm.c
index a5767a0..8f20128 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));

Return to:

Send suggestions and report system problems to the System administrator.