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

(scm_ithrow): When looking for the jmpbuf, first test that we have a

Browse source 
pair before accessing its cdr.  Thanks to Bill Schottstaedt!
This commit is contained in:
Marius Vollmer 2006-05-29 20:35:48 +00:00
parent c56c0f7966
commit 18bffcd0f7
2 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/ChangeLog
View file

@ -1,3 +1,9 @@
2006-05-29 Marius Vollmer <mvo@zagadka.de>
* throw.c (scm_ithrow): When looking for the jmpbuf, first test
that we have a pair before accessing its cdr. Thanks to Bill
Schottstaedt!
2006-05-28 Marius Vollmer <mvo@zagadka.de>
* srfi-4.c, strings.c: Replace SCM_C_INLINE with

3
libguile/throw.c
View file

@ -736,7 +736,8 @@ scm_ithrow (SCM key, SCM args, int noreturn SCM_UNUSED)
abort ();
for (wind_goal = scm_i_dynwinds ();
!scm_is_eq (SCM_CDAR (wind_goal), jmpbuf);
(!scm_is_pair (SCM_CAR (wind_goal))
|| !scm_is_eq (SCM_CDAR (wind_goal), jmpbuf));
wind_goal = SCM_CDR (wind_goal))
;