From 50c65018d3de3a19e4190455a778e9050a9c35e7 Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Thu, 23 Mar 2000 13:04:19 +0000 Subject: [PATCH] * continuations.h (SCM_SETJMPBUF): Cast second arg into SCM. --- libguile/continuations.h | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/libguile/continuations.h b/libguile/continuations.h index b29994547..9847d7166 100644 --- a/libguile/continuations.h +++ b/libguile/continuations.h @@ -61,7 +61,7 @@ typedef struct } scm_contregs; #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_THROW_VALUE(x) (((scm_contregs *)SCM_CHARS(x))->throw_value) #define SCM_BASE(x) (((scm_contregs *)SCM_CHARS(x))->base)