core: reverse!: Handle empty list.
[mes.git] / src / mes.c
index 6f3c4a5115244ed5bfc64180fdf65c526a9777e7..e66f6b007e7e2b36b366c063b466a32403cb9462 100644 (file)
--- a/src/mes.c
+++ b/src/mes.c
@@ -661,7 +661,7 @@ append_reverse (SCM x, SCM y)
 SCM
 reverse_x_ (SCM x, SCM t)
 {
-  if (TYPE (x) != TPAIR)
+  if (x != cell_nil && TYPE (x) != TPAIR)
     error (cell_symbol_not_a_pair, cons (x, cell_reverse_x_));
   SCM r = t;
   while (x != cell_nil)