mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-06-09 13:30:26 +02:00
(scm_ithrow): When looking for the jmpbuf, first test that we have a
pair before accessing its cdr. Thanks to Bill Schottstaedt!
This commit is contained in:
parent
c56c0f7966
commit
18bffcd0f7
2 changed files with 8 additions and 1 deletions
|
@ -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
|
||||
|
|
|
@ -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))
|
||||
;
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue