mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 19:50:24 +02:00
Code Activity

* eval.c (safe_setjmp): Temporarily use old setjmp until someone

Browse source 
has time to check why this doesn't work well with continuations.
This commit is contained in:
Mikael Djurfeldt 1997-03-16 16:45:21 +00:00
parent e500ef7019
commit c75e83b76e
2 changed files with 9 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/ChangeLog
View file

@ -1,3 +1,8 @@
Sun Mar 16 11:43:49 1997 Mikael Djurfeldt <mdj@floss.cyclic.com>
* eval.c (safe_setjmp): Temporarily use old setjmp until someone
has time to check why this doesn't work well with continuations.
Sun Mar 16 05:09:55 1997 Jim Blandy <jimb@totoro.cyclic.com> Sun Mar 16 05:09:55 1997 Jim Blandy <jimb@totoro.cyclic.com>
* Fix shell syntax error; some shells won't tolerate * Fix shell syntax error; some shells won't tolerate

5
libguile/eval.c
View file

@ -1171,8 +1171,11 @@ scm_eval_args (l, env)
the second condition, and making x and env volatile would be a the second condition, and making x and env volatile would be a
speed problem, so we'll just trivially meet the first, by having no speed problem, so we'll just trivially meet the first, by having no
"automatic variables local to the function containing setjmp." */ "automatic variables local to the function containing setjmp." */
/* This doesn't work well together with continuations - I haven't had
time to check why, so I make this temporary fix. /mdj */
#define safe_setjmp(x) setjmp (x)
static int static int
safe_setjmp (jmp_buf env) unsafe_setjmp (jmp_buf env)
{ {
/* I think ANSI requires us to write the function this way, instead /* I think ANSI requires us to write the function this way, instead
of just saying "return setjmp (env)". Maybe I'm being silly. of just saying "return setjmp (env)". Maybe I'm being silly.