From ec8ea5f95c1d2cf64210812174c5b8f19d642efb Mon Sep 17 00:00:00 2001
From: Cas Cremers <cas.cremers@gmail.com>
Date: Sun, 14 Oct 2018 20:51:19 +0200
Subject: [PATCH] Copied another iterator to remove a trampoline.

---
 src/binding.c | 20 +++++++++++---------
 1 file changed, 11 insertions(+), 9 deletions(-)

diff --git a/src/binding.c b/src/binding.c
index 38f057a..1be64ff 100644
--- a/src/binding.c
+++ b/src/binding.c
@@ -630,17 +630,19 @@ int
 countBindingsDone ()
 {
   int count;
+  List bl;
 
-  int countDone (Binding b)
-  {
-    if ((!b->blocked) && b->done)
-      {
-	count++;
-      }
-    return true;
-  }
 
   count = 0;
-  iterate_bindings (countDone);
+  for (bl = sys->bindings; bl != NULL; bl = bl->next)
+    {
+      Binding b;
+
+      b = (Binding) bl->data;
+      if ((!b->blocked) && b->done)
+        {
+	  count++;
+        }
+    }
   return count;
 }