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

* symbols.c (scm_can_use_top_level_lookup_closure_var): Removed.

Browse source 
#include "modules.h".
This commit is contained in:
Mikael Djurfeldt 2000-08-11 08:44:51 +00:00
parent 07bcf91d63
commit eb8db44059
1 changed files with 3 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

10
libguile/symbols.c
View file

@ -54,6 +54,7 @@
#include "libguile/strings.h" #include "libguile/strings.h"
#include "libguile/vectors.h" #include "libguile/vectors.h"
#include "libguile/weaks.h" #include "libguile/weaks.h"
#include "libguile/modules.h"
#include "libguile/validate.h" #include "libguile/validate.h"
#include "libguile/symbols.h" #include "libguile/symbols.h"
@ -376,11 +377,6 @@ scm_sysintern0_no_module_lookup (const char *name)
} }
} }
/* Is it safe to access SCM_TOP_LEVEL_LOOKUP_CLOSURE_VAR?
*/
int scm_can_use_top_level_lookup_closure_var;
/* Intern the symbol named NAME in scm_symhash, and give it the value /* Intern the symbol named NAME in scm_symhash, and give it the value
VAL. NAME is null-terminated. Use the current top_level lookup VAL. NAME is null-terminated. Use the current top_level lookup
closure to give NAME its value. closure to give NAME its value.
@ -397,8 +393,8 @@ SCM
scm_sysintern0 (const char *name) scm_sysintern0 (const char *name)
{ {
SCM lookup_proc; SCM lookup_proc;
if (scm_can_use_top_level_lookup_closure_var && if (scm_module_system_booted_p
SCM_NIMP (lookup_proc = SCM_TOP_LEVEL_LOOKUP_CLOSURE)) && SCM_NIMP (lookup_proc = SCM_TOP_LEVEL_LOOKUP_CLOSURE))
{ {
SCM sym = SCM_CAR (scm_intern0 (name)); SCM sym = SCM_CAR (scm_intern0 (name));
SCM vcell = scm_sym2vcell (sym, lookup_proc, SCM_BOOL_T); SCM vcell = scm_sym2vcell (sym, lookup_proc, SCM_BOOL_T);