/[guile]/guile/guile-core/libguile/fluids.c
ViewVC logotype

Diff of /guile/guile-core/libguile/fluids.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.44 by dirk, Fri Aug 31 12:13:50 2001 UTC revision 1.45 by ossau, Tue Jan 22 23:31:39 2002 UTC
# Line 50  Line 50 
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"
# Line 178  SCM_DEFINE (scm_fluid_set_x, "fluid-set! Line 179  SCM_DEFINE (scm_fluid_set_x, "fluid-set!
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);
# Line 195  same fluid appears multiple times in the Line 196  same fluid appears multiple times in the
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    

Legend:
Removed from v.1.44  
changed lines
  Added in v.1.45

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26