fixed typo

1988-07-25 12:30:52 +00:00
parent e5c19866eb
commit e98a670850
3 changed files with 3 additions and 3 deletions
--- a/lang/basic/lib/exp.c
+++ b/lang/basic/lib/exp.c
@@ -17,7 +17,7 @@ floor(x)
 	extern double _fif();
 	double val;

-	return _fif(x, 1,0, &val) < 0 ? val - 1.0 : val ;
+	return _fif(x, 1.0, &val) < 0 ? val - 1.0 : val ;
 	/*	this also works if _fif always returns a positive
 		fractional part
 	*/