summaryrefslogtreecommitdiff
path: root/libguile/fluids.c
diff options
context:
space:
mode:
authorNeil Jerram <neil@ossau.uklinux.net>2002-01-22 23:31:39 +0000
committerNeil Jerram <neil@ossau.uklinux.net>2002-01-22 23:31:39 +0000
commitc96d76b88dcb7805311d14e6e408d064211fde20 (patch)
tree08d604bcf94ceb35dd271c4c46064ed60644f5b4 /libguile/fluids.c
parent229d2c9c076d214457f4f6817f7d3c1db90ed994 (diff)
downloadguile-c96d76b88dcb7805311d14e6e408d064211fde20.tar.gz
* First batch of libguile changes for Elisp support.
* Fixed a few typos. * Minor rationalization of macros relating to source breakpoints.
Diffstat (limited to 'libguile/fluids.c')
-rw-r--r--libguile/fluids.c5
1 files changed, 3 insertions, 2 deletions
diff --git a/libguile/fluids.c b/libguile/fluids.c
index 2a8ff9a1f..7901e2231 100644
--- a/libguile/fluids.c
+++ b/libguile/fluids.c
@@ -50,6 +50,7 @@
#include "libguile/eval.h"
#include "libguile/ports.h"
#include "libguile/deprecation.h"
+#include "libguile/lang.h"
#define INITIAL_FLUIDS 10
#include "libguile/validate.h"
@@ -178,7 +179,7 @@ SCM_DEFINE (scm_fluid_set_x, "fluid-set!", 2, 0, 0,
void
scm_swap_fluids (SCM fluids, SCM vals)
{
- while (!SCM_NULLP (fluids))
+ while (!SCM_NULL_OR_NIL_P (fluids))
{
SCM fl = SCM_CAR (fluids);
SCM old_val = scm_fluid_ref (fl);
@@ -195,7 +196,7 @@ same fluid appears multiple times in the fluids list. */
void
scm_swap_fluids_reverse (SCM fluids, SCM vals)
{
- if (!SCM_NULLP (fluids))
+ if (!SCM_NULL_OR_NIL_P (fluids))
{
SCM fl, old_val;