diff options
author | Andy Wingo <wingo@pobox.com> | 2011-04-14 16:06:40 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2011-04-14 16:06:40 +0200 |
commit | 26ac1e3f421f1ef735679f595b3345fdb49336e2 (patch) | |
tree | d1733ccf4942229e88dfd742a3e368dfd535a437 | |
parent | da5d81a1f7a3b51813dba2c5a78b8e17243cde52 (diff) | |
download | guile-26ac1e3f421f1ef735679f595b3345fdb49336e2.tar.gz |
add packager info to %build-info
* libguile/load.c (init_build_info): Add packager, packager-version, and
packager-bug-reports to %build-info, if they are available.
-rw-r--r-- | libguile/load.c | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/libguile/load.c b/libguile/load.c index c2380b94e..701b34b39 100644 --- a/libguile/load.c +++ b/libguile/load.c @@ -933,6 +933,21 @@ init_build_info () SCM val = scm_from_locale_string (info[i].value); *loc = scm_acons (key, val, *loc); } +#ifdef PACKAGE_PACKAGER + *loc = scm_acons (scm_from_latin1_symbol ("packager"), + scm_from_latin1_string (PACKAGE_PACKAGER), + *loc); +#endif +#ifdef PACKAGE_PACKAGER_VERSION + *loc = scm_acons (scm_from_latin1_symbol ("packager-version"), + scm_from_latin1_string (PACKAGE_PACKAGER_VERSION), + *loc); +#endif +#ifdef PACKAGE_PACKAGER_BUG_REPORTS + *loc = scm_acons (scm_from_latin1_symbol ("packager-bug-reports"), + scm_from_latin1_string (PACKAGE_PACKAGER_BUG_REPORTS), + *loc); +#endif } |