mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-30 06:50:31 +02:00
Code Activity

remove mention of cheap continuations

Browse source 
* 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.
This commit is contained in:
Andy Wingo 2011-05-15 11:34:38 +02:00
parent 4f1ce27a36
commit 8e450381bf
2 changed files with 5 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

14
libguile/__scm.h
View file

@ -337,15 +337,11 @@ typedef void *scm_t_subr;
#ifdef vms #ifdef vms
# ifndef CHEAP_CONTINUATIONS typedef int jmp_buf[17];
typedef int jmp_buf[17]; extern int setjump(jmp_buf env);
extern int setjump(jmp_buf env); extern int longjump(jmp_buf env, int ret);
extern int longjump(jmp_buf env, int ret); # define setjmp setjump
# define setjmp setjump # define longjmp longjump
# define longjmp longjump
# else
# include <setjmp.h>
# endif
#else /* ndef vms */ #else /* ndef vms */
# ifdef _CRAY1 # ifdef _CRAY1
typedef int jmp_buf[112]; typedef int jmp_buf[112];

3
libguile/feature.c
View file

@ -111,9 +111,6 @@ scm_init_feature()
#ifndef GO32 #ifndef GO32
scm_add_feature("char-ready?"); scm_add_feature("char-ready?");
#endif #endif
#ifndef CHEAP_CONTINUATIONS
scm_add_feature ("full-continuation");
#endif
#if SCM_USE_PTHREAD_THREADS #if SCM_USE_PTHREAD_THREADS
scm_add_feature ("threads"); scm_add_feature ("threads");
#endif #endif