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

* continuations.h (SCM_SETJMPBUF): Cast second arg into SCM.

Browse source
This commit is contained in:
Mikael Djurfeldt 2000-03-23 13:04:19 +00:00
parent b159fc3cc4
commit 50c65018d3
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/continuations.h
View file

@ -61,7 +61,7 @@ typedef struct
} scm_contregs; } scm_contregs;
#define SCM_JMPBUF(x) (((scm_contregs *)SCM_CHARS(x))->jmpbuf) #define SCM_JMPBUF(x) (((scm_contregs *)SCM_CHARS(x))->jmpbuf)
#define SCM_SETJMPBUF SCM_SETCDR #define SCM_SETJMPBUF(z, x) SCM_SETCDR (z, (SCM) x)
#define SCM_DYNENV(x) (((scm_contregs *)SCM_CHARS(x))->dynenv) #define SCM_DYNENV(x) (((scm_contregs *)SCM_CHARS(x))->dynenv)
#define SCM_THROW_VALUE(x) (((scm_contregs *)SCM_CHARS(x))->throw_value) #define SCM_THROW_VALUE(x) (((scm_contregs *)SCM_CHARS(x))->throw_value)
#define SCM_BASE(x) (((scm_contregs *)SCM_CHARS(x))->base) #define SCM_BASE(x) (((scm_contregs *)SCM_CHARS(x))->base)