X-Git-Url: http://cgit.sxemacs.org/?a=blobdiff_plain;f=src%2Fent%2Fent.c;h=885e181253320d494307834181781461954b7915;hb=HEAD;hp=d9df318c969eb6b3512060f080db7ea56dfc6e26;hpb=bbe503243aa874b469a6ba0b144f57ea6629046a;p=sxemacs

diff --git a/src/ent/ent.c b/src/ent/ent.c
index d9df318..885e181 100644
--- a/src/ent/ent.c
+++ b/src/ent/ent.c
@@ -253,9 +253,9 @@ Return t if OBJECT is a real, nil otherwise.
 }
 
 static int
-default_real_precision_changed (Lisp_Object sym, Lisp_Object *val,
-				Lisp_Object in_object,
-				int flags)
+default_real_precision_changed (Lisp_Object SXE_UNUSED(sym), Lisp_Object *val,
+				Lisp_Object SXE_UNUSED(in_object),
+				int SXE_UNUSED(flags))
 {
 	unsigned long prec;
 
@@ -270,11 +270,6 @@ default_real_precision_changed (Lisp_Object sym, Lisp_Object *val,
 		bigfr_set_default_prec(prec);
 #endif
 	return 0;
-
-	/* less warnings */
-	if (sym == Qnil);
-	if (in_object == Qnil);
-	if (flags);
 }
 
 DEFUN("real", Freal, 1, 2, 0,	/*
@@ -301,7 +296,7 @@ If optional argument PRECISION is non-nil, its value
 #endif	/* HAVE_MPF */
 	}
 
-        /* fallback to 'float */
+	/* fallback to 'float */
 	return Fcoerce_number(number, Qfloat, precision);
 }
 
@@ -471,7 +466,7 @@ int ase_optable_index(Lisp_Object arg)
 	case Lisp_Type_Record: {
 		enum lrecord_type type =
 			XRECORD_LHEADER_IMPLEMENTATION(arg)->lrecord_type_index;
-		
+
 		switch ((unsigned int)type) {
 		case lrecord_type_marker:
 			return INT_T;
@@ -583,17 +578,17 @@ TYPE is one of the symbols:
 - 'fixnum or 'int     to convert to built-in integers
 - 'bigz or 'bignum    to convert to bigz integers
 - 'integer            to convert to the most suitable type out of
-                      'bigz or 'int
+		      'bigz or 'int
 
 - 'bigq or 'ratio     to convert to bigq fractions
 - 'rational           to convert to the most suitable type out of
-                      'bigq, 'bigz or 'int
+		      'bigq, 'bigz or 'int
 
 - 'float              to convert to built-in floats
 - 'bigf or 'bigfloat  to convert to bigf floats
 - 'bigfr              to convert to bigfr floats
-- 'real               to convert to the type indicated by 
-                      `read-real-as' with a fallback to 'float
+- 'real               to convert to the type indicated by
+		      `read-real-as' with a fallback to 'float
 
 - 'bigg               to convert to a Gaussian
 - 'bigc               to convert to a bigc complex number
@@ -654,7 +649,7 @@ cases; the information is silently lost.
 	}
 #endif /* HAVE_MPF */
 #if defined HAVE_MPFR && defined WITH_MPFR
-	else if (EQ(type, Qbigfr)) { 
+	else if (EQ(type, Qbigfr)) {
 		la.precision = internal_get_precision(precision);
 		return ent_lift(number, BIGFR_T, &la);
 	}
@@ -671,7 +666,7 @@ cases; the information is silently lost.
 		else if (Vread_real_as == Qbigfr)
 			return ent_lift(number, BIGFR_T, &la);
 #endif
-		else 
+		else
 			return ent_lift(number, FLOAT_T, &la);
 	}
 #if defined(HAVE_PSEUG) && defined WITH_PSEUG
@@ -935,7 +930,7 @@ arbitrary-precision floats.
 	DEFVAR_LISP("read-real-as", &Vread_real_as /*
 *Indicate how real numbers should be read.
 If set to `nil' or 'float, reals are always converted to floats.
-If set to 'bigf or 'bigfr, reals are read as MPF floats or MPFR 
+If set to 'bigf or 'bigfr, reals are read as MPF floats or MPFR
 floats respectively.
 						   */);
 	Vread_real_as = Qfloat;