Display: If possible, show name of closure.
[mes.git] / mes.c
diff --git a/mes.c b/mes.c
index 817e947a0c3f039b01e1fd5f65c3a2aa2c4dbd4e..463b891f8aaac0fbd67b75fdc23aa527e071b531 100644 (file)
--- a/mes.c
+++ b/mes.c
@@ -311,12 +311,7 @@ pairlis (SCM x, SCM y, SCM a)
 SCM
 assq (SCM x, SCM a)
 {
-  while (a != cell_nil && eq_p (x, CAAR (a)) == cell_f)
-    {
-      if (TYPE (a) == BROKEN_HEART || TYPE (CAR (a)) == BROKEN_HEART)
-        fprintf (stderr, "oops, broken heart\n");
-      a = CDR (a);
-    }
+  while (a != cell_nil && eq_p (x, CAAR (a)) == cell_f) a = CDR (a);
   return a != cell_nil ? car (a) : cell_f;
 }