From 8e450381bfc777569a98dd4971bc0510dc3ced92 Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Sun, 15 May 2011 11:34:38 +0200
Subject: [PATCH] remove mention of cheap continuations

* libguile/__scm.h: Inline an #ifndef CHEAP_CONTINUATIONS block for
  VMS, as we always have full continuations.

* libguile/feature.c (scm_init_feature): Don't bother defining the
  "full-continuation" feature.
---
 libguile/__scm.h   | 14 +++++---------
 libguile/feature.c |  3 ---
 2 files changed, 5 insertions(+), 12 deletions(-)

diff --git a/libguile/__scm.h b/libguile/__scm.h
index 60659b8b8..635686aaa 100644
--- a/libguile/__scm.h
+++ b/libguile/__scm.h
@@ -337,15 +337,11 @@ typedef void *scm_t_subr;
 
 
 #ifdef vms
-# ifndef CHEAP_CONTINUATIONS
-   typedef int jmp_buf[17];
-   extern int setjump(jmp_buf env);
-   extern int longjump(jmp_buf env, int ret);
-#  define setjmp setjump
-#  define longjmp longjump
-# else
-#  include <setjmp.h>
-# endif
+typedef int jmp_buf[17];
+extern int setjump(jmp_buf env);
+extern int longjump(jmp_buf env, int ret);
+# define setjmp setjump
+# define longjmp longjump
 #else				/* ndef vms */
 # ifdef _CRAY1
     typedef int jmp_buf[112];
diff --git a/libguile/feature.c b/libguile/feature.c
index a9fb1f0e2..ebb77cb08 100644
--- a/libguile/feature.c
+++ b/libguile/feature.c
@@ -111,9 +111,6 @@ scm_init_feature()
 #ifndef GO32
   scm_add_feature("char-ready?");
 #endif
-#ifndef CHEAP_CONTINUATIONS
-  scm_add_feature ("full-continuation");
-#endif
 #if SCM_USE_PTHREAD_THREADS
   scm_add_feature ("threads");
 #endif