Display: If possible, show name of closure.
[mes.git] / lib.c
diff --git a/lib.c b/lib.c
index da55daf637a04110176590ecf0b7450242b1e3fc..e8f288394ad239dc4deaa2dbc7ed8df7b71ab196 100644 (file)
--- a/lib.c
+++ b/lib.c
@@ -23,6 +23,13 @@ SCM cadr (SCM x) {return car (cdr (x));}
 SCM cdar (SCM x) {return cdr (car (x));}
 SCM cddr (SCM x) {return cdr (cdr (x));}
 
+SCM
+xassq (SCM x, SCM a) ///for speed in core only
+{
+  while (a != cell_nil && x != CDAR (a)) a = CDR (a);
+  return a != cell_nil ? CAR (a) : cell_f;
+}
+
 SCM
 length (SCM x)
 {