From 211fcbc8cdfb0834a6675dc8454994472ed7ce3f Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Wed, 24 Feb 2010 23:19:41 +0100
Subject: [PATCH] fix escape-only prompts

* libguile/control.c (scm_c_make_prompt): Whoops, set the escape-only
  flag properly here.
---
 libguile/control.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/libguile/control.c b/libguile/control.c
index 05a8dab1e..9f23f3098 100644
--- a/libguile/control.c
+++ b/libguile/control.c
@@ -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");