1
Fork 0
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:
Marius Vollmer 2006-05-29 20:31:39 +00:00
parent a31d659ca3
commit 25daa4eb00

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))
;