mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-29 08:20:20 +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
a31d659ca3
commit
25daa4eb00
1 changed files with 2 additions and 1 deletions
|
@ -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