mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

add packager info to %build-info

Browse source 
* libguile/load.c (init_build_info): Add packager, packager-version, and
  packager-bug-reports to %build-info, if they are available.
This commit is contained in:
Andy Wingo 2011-04-14 16:06:40 +02:00
parent da5d81a1f7
commit 26ac1e3f42
1 changed files with 15 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

15
libguile/load.c
View file

@ -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
}