50 |
#include "libguile/eval.h" |
#include "libguile/eval.h" |
51 |
#include "libguile/ports.h" |
#include "libguile/ports.h" |
52 |
#include "libguile/deprecation.h" |
#include "libguile/deprecation.h" |
53 |
|
#include "libguile/lang.h" |
54 |
|
|
55 |
#define INITIAL_FLUIDS 10 |
#define INITIAL_FLUIDS 10 |
56 |
#include "libguile/validate.h" |
#include "libguile/validate.h" |
179 |
void |
void |
180 |
scm_swap_fluids (SCM fluids, SCM vals) |
scm_swap_fluids (SCM fluids, SCM vals) |
181 |
{ |
{ |
182 |
while (!SCM_NULLP (fluids)) |
while (!SCM_NULL_OR_NIL_P (fluids)) |
183 |
{ |
{ |
184 |
SCM fl = SCM_CAR (fluids); |
SCM fl = SCM_CAR (fluids); |
185 |
SCM old_val = scm_fluid_ref (fl); |
SCM old_val = scm_fluid_ref (fl); |
196 |
void |
void |
197 |
scm_swap_fluids_reverse (SCM fluids, SCM vals) |
scm_swap_fluids_reverse (SCM fluids, SCM vals) |
198 |
{ |
{ |
199 |
if (!SCM_NULLP (fluids)) |
if (!SCM_NULL_OR_NIL_P (fluids)) |
200 |
{ |
{ |
201 |
SCM fl, old_val; |
SCM fl, old_val; |
202 |
|
|