mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-29 08:20:20 +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:31:39 +00:00
parent a31d659ca3
commit 25daa4eb00
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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