diff src/fns.c @ 223:2c611d1463a6 r20-4b10

Import from CVS: tag r20-4b10
author cvs
date Mon, 13 Aug 2007 10:10:54 +0200
parents 262b8bb4a523
children f955c73f5258
line wrap: on
line diff
--- a/src/fns.c	Mon Aug 13 10:10:03 2007 +0200
+++ b/src/fns.c	Mon Aug 13 10:10:54 2007 +0200
@@ -2879,7 +2879,9 @@
 {
   if (depth > 200)
     error ("Stack overflow in equal");
+#ifndef LRECORD_CONS
  do_cdr:
+#endif
   QUIT;
   if (EQ_WITH_EBOLA_NOTICE (o1, o2))
     return 1;
@@ -2952,7 +2954,9 @@
 {
   if (depth > 200)
     error ("Stack overflow in equal");
+#ifndef LRECORD_CONS
  do_cdr:
+#endif
   QUIT;
   if (HACKEQ_UNSAFE (o1, o2))
     return 1;