mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 04:10:18 +02:00
Code Activity

* dynwind.c (scm_swap_bindings): Ditto.

Browse source
This commit is contained in:
Mikael Djurfeldt 2000-03-22 02:09:10 +00:00
parent 9c6599f96b
commit 15237f3002
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/dynwind.c
View file

@ -186,7 +186,8 @@ scm_swap_bindings (SCM glocs, SCM vals)
while (SCM_NIMP (vals)) while (SCM_NIMP (vals))
{ {
tmp = SCM_GLOC_VAL (SCM_CAR (glocs)); tmp = SCM_GLOC_VAL (SCM_CAR (glocs));
SCM_SETCDR (SCM_CAR (glocs) - 1L, SCM_CAR (vals)); SCM_SETCDR (SCM_PACK (SCM_UNPACK (SCM_CAR (glocs)) - 1L),
SCM_CAR (vals));
SCM_SETCAR (vals, tmp); SCM_SETCAR (vals, tmp);
glocs = SCM_CDR (glocs); glocs = SCM_CDR (glocs);
vals = SCM_CDR (vals); vals = SCM_CDR (vals);