* coop-threads.c: Remove K&R function headers.

[bpt/guile.git] / libguile / fluids.c

diff --git a/libguile/fluids.c b/libguile/fluids.c
index 9df4d4a..9f040d3 100644 (file)
--- a/libguile/fluids.c
+++ b/libguile/fluids.c
@@ -136,7 +136,7 @@ GUILE_PROC (scm_fluid_p, "fluid?", 1, 0, 0,
 "")
 #define FUNC_NAME s_scm_fluid_p
 {
-  return SCM_BOOL(SCM_NIMP (fl) && SCM_FLUIDP (fl));
+  return SCM_BOOL(SCM_FLUIDP (fl));
 }
 #undef FUNC_NAME