diff options
author | Marius Vollmer <mvo@zagadka.de> | 2001-05-15 14:57:22 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2001-05-15 14:57:22 +0000 |
commit | 86d31dfe7d0754b863863f6544c75097ef68fe8c (patch) | |
tree | 0f78f9d3ace802b80422dcedea25098cf901d05a /libguile/load.c | |
parent | 7c33806ae676601f902dbdc0f39c1f0828d68951 (diff) | |
download | guile-86d31dfe7d0754b863863f6544c75097ef68fe8c.tar.gz |
Merge from mvo-vcell-cleanup-1-branch.
Diffstat (limited to 'libguile/load.c')
-rw-r--r-- | libguile/load.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/libguile/load.c b/libguile/load.c index 98158e6da..acc75e46f 100644 --- a/libguile/load.c +++ b/libguile/load.c @@ -494,7 +494,7 @@ 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)); + SCM *loc = SCM_VARIABLE_LOC (scm_c_define ("%guile-build-info", SCM_EOL)); unsigned int i; for (i = 0; i < (sizeof (info) / sizeof (info[0])); i++) @@ -509,12 +509,12 @@ void scm_init_load () { scm_listofnullstr = scm_permanent_object (SCM_LIST1 (scm_nullstr)); - scm_loc_load_path = SCM_CDRLOC (scm_sysintern ("%load-path", SCM_EOL)); + scm_loc_load_path = SCM_VARIABLE_LOC (scm_c_define ("%load-path", SCM_EOL)); scm_loc_load_extensions - = SCM_CDRLOC (scm_sysintern ("%load-extensions", - SCM_LIST2 (scm_makfrom0str (".scm"), - scm_nullstr))); - scm_loc_load_hook = SCM_CDRLOC (scm_sysintern ("%load-hook", SCM_BOOL_F)); + = SCM_VARIABLE_LOC (scm_c_define ("%load-extensions", + SCM_LIST2 (scm_makfrom0str (".scm"), + scm_nullstr))); + scm_loc_load_hook = SCM_VARIABLE_LOC (scm_c_define ("%load-hook", SCM_BOOL_F)); init_build_info (); |