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

Use libguile/control.x explicitly.

Browse source
This commit is contained in:
Ken Raeburn 2010-02-21 15:13:10 -05:00
parent d524964774
commit 69c9600678
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/control.c
View file

@ -276,7 +276,7 @@ SCM_DEFINE (scm_at_abort, "@abort", 2, 0, 0, (SCM tag, SCM args),
void void
scm_init_control (void) scm_init_control (void)
{ {
#include "control.x" #include "libguile/control.x"
scm_sys_default_prompt_tag = scm_make_fluid (); scm_sys_default_prompt_tag = scm_make_fluid ();
scm_fluid_set_x (scm_sys_default_prompt_tag, scm_gensym (SCM_UNDEFINED)); scm_fluid_set_x (scm_sys_default_prompt_tag, scm_gensym (SCM_UNDEFINED));
scm_c_define ("%default-prompt-tag", scm_sys_default_prompt_tag); scm_c_define ("%default-prompt-tag", scm_sys_default_prompt_tag);