mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 03:30:27 +02:00
Code Activity

fix escape-only prompts

Browse source 
* libguile/control.c (scm_c_make_prompt): Whoops, set the escape-only
  flag properly here.
This commit is contained in:
Andy Wingo 2010-02-24 23:19:41 +01:00
parent 3ccee39194
commit 211fcbc8cd
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

@ -41,7 +41,7 @@ scm_c_make_prompt (SCM vm, SCM k, scm_t_uint8 escape_only_p,
tag = scm_tc7_prompt;
if (escape_only_p)
tag |= SCM_F_PROMPT_ESCAPE;
tag |= (SCM_F_PROMPT_ESCAPE<<8);
ret = scm_words (tag, 5);
regs = scm_gc_malloc_pointerless (sizeof (*regs), "prompt registers");