Revert "core: length: Check parameter."

This reverts commit 1f52ed35c66febcce16e06868e803a39be7eda41.

diff --git a/src/mes.c b/src/mes.c
index 8bd705614aecf5e9ba1f637e429af9bf67825bc7..4f787929a016363ad02b7bb303716abc882b8119 100644 (file)
--- a/src/mes.c
+++ b/src/mes.c
@@ -520,8 +520,6 @@ length__ (SCM x) ///((internal))
 SCM
 length (SCM x)
 {
-  if (x != cell_nil && TYPE (x) != TPAIR)
-    error (cell_symbol_not_a_pair, x);
   return MAKE_NUMBER (length__ (x));
 }