mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 15:40:19 +02:00
Code Activity

* Makefile.am (libpath.h): Include the values of all the standard

Browse source 
Makefile directory variables.  Print a message, but don't print
all the commands.
(versiondat.h): Print a message, but don't print all the commands.
* load.c: #include "alist.h".
(init_build_info): New function.
(scm_init_load): Call it.
* Makefile.in: Regenerated.
This commit is contained in:
Jim Blandy 1997-06-23 23:48:39 +00:00
parent 9b345f6c21
commit e151bee62a
3 changed files with 95 additions and 26 deletions
Download patch file Download diff file Expand all files Collapse all files

21
libguile/load.c
View file

@ -47,6 +47,7 @@
#include "read.h"
#include "eval.h"
#include "throw.h"
#include "alist.h"
#include "load.h"
@ -322,7 +323,25 @@ scm_read_and_eval_x (port)
}
/* Information about the build environment. */
/* Initialize the scheme variable %guile-build-info, based on data
provided by the Makefile, via libpath.h. */
static void
init_build_info ()
{
static struct { char *name; char *value; } info[] = SCM_BUILD_INFO;
SCM *loc = SCM_CDRLOC (scm_sysintern ("%guile-build-info", SCM_EOL));
int i;
for (i = 0; i < (sizeof (info) / sizeof (info[0])); i++)
*loc = scm_acons (SCM_CAR (scm_intern0 (info[i].name)),
scm_makfrom0str (info[i].value),
*loc);
}
void
scm_init_load ()
{
@ -334,5 +353,7 @@ scm_init_load ()
SCM_UNDEFINED)));
scm_loc_load_hook = SCM_CDRLOC(scm_sysintern("%load-hook", SCM_BOOL_F));
init_build_info ();
#include "load.x"
}