summaryrefslogtreecommitdiff
path: root/libguile/options.c
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>1997-02-10 01:01:54 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>1997-02-10 01:01:54 +0000
commit5aab5d961cbe871a28e733fa21a3e7558c34f078 (patch)
tree4a2f1e96ba490bddf226ceeafb6bbd08354330bd /libguile/options.c
parentb6b72ebaaaecb3a2ea54dd0c6bbfbc7f8e230f27 (diff)
downloadguile-5aab5d961cbe871a28e733fa21a3e7558c34f078.tar.gz
* symbols.c (scm_sysintern0): New function. Contains the core of
old scm_sysintern but doesn't take a second value argument. (scm_sysintern): Now uses scm_sysintern0. (scm_sysintern_no_module_lookup): Renamed to scm_sysintern0_no_module_lookup and doesn't take a second value argument any longer. * symbols.h (scm_sysintern0: Added declaration. * options.c (scm_init_opts): Use scm_sysintern0 instead of scm_sysintern when interning option keys. Otherwise we risk destroying the values of already interned variables. * symbols.c (scm_sym2vcell): Bugfix: Treat definedp as scheme-level boolean (use SCM_NFALSEP). * backtrace.c (scm_init_backtrace): Make Scheme-level variable `the-last-stack'. (scm_backtrace): New function. (C version of old function from boot-9.scm) Motivation: Make it possible to display backtraces without depending on boot-9.scm. (I'm uncertain if this motivation is good enough...) * root.h (scm_root_state): Add member the_last_stack_var. (scm_the_stack_var): Defined to scm_root->the_last_stack_var. * root.c (mark_root): Mark scm_the_last_stack_var. * init.c (scm_start_stack): Initialize scm_the_last_stack_var to SCM_BOOL_F.
Diffstat (limited to 'libguile/options.c')
-rw-r--r--libguile/options.c3
1 files changed, 1 insertions, 2 deletions
diff --git a/libguile/options.c b/libguile/options.c
index ade12e2ee..d0aba0a17 100644
--- a/libguile/options.c
+++ b/libguile/options.c
@@ -211,8 +211,7 @@ scm_init_opts (func, options, n)
for (i = 0; i < n; ++i)
{
- options[i].name = (char *) SCM_CAR (scm_sysintern (options[i].name,
- SCM_UNDEFINED));
+ options[i].name = (char *) SCM_CAR (scm_sysintern0 (options[i].name));
options[i].doc = (char *) scm_permanent_object (scm_take0str
(options[i].doc));
}