--- /dev/null
+From e6676ebbd2ab0a6283d96c797dbe93552c1a222c Mon Sep 17 00:00:00 2001
+From: Muh Muhten <muh.muhten@gmail.com>
+Date: Mon, 18 Feb 2019 21:00:59 -0500
+Subject: [PATCH 3/9] Simplify definition of block_bind_referenced
+
+---
+ src/compile.c | 49 ++++++++-----------------------------------------
+ 1 file changed, 8 insertions(+), 41 deletions(-)
+
+--- a/src/compile.c
++++ b/src/compile.c
+@@ -317,20 +317,6 @@ static int block_count_actuals(block b)
+ return args;
+ }
+
+-static int block_count_refs(block binder, block body) {
+- int nrefs = 0;
+- for (inst* i = body.first; i; i = i->next) {
+- if (i != binder.first && i->bound_by == binder.first) {
+- nrefs++;
+- }
+- // counting recurses into closures
+- nrefs += block_count_refs(binder, i->subfn);
+- // counting recurses into argument list
+- nrefs += block_count_refs(binder, i->arglist);
+- }
+- return nrefs;
+-}
+-
+ static int block_bind_subblock_inner(int* any_unbound, block binder, block body, int bindflags, int break_distance) {
+ assert(block_is_single(binder));
+ assert((opcode_describe(binder.first->op)->flags & bindflags) == (bindflags & ~OP_BIND_WILDCARD));
+@@ -434,37 +420,18 @@ block block_bind_library(block binder, b
+ return body; // We don't return a join because we don't want those sticking around...
+ }
+
+-// Bind binder to body and throw away any defs in binder not referenced
+-// (directly or indirectly) from body.
++// Bind binder to body, then throw it away if not referenced.
+ block block_bind_referenced(block binder, block body, int bindflags) {
++ assert(block_is_single(binder));
+ assert(block_has_only_binders(binder, bindflags));
+ bindflags |= OP_HAS_BINDING;
+- block refd = gen_noop();
+- block unrefd = gen_noop();
+- int nrefs;
+- for (int last_kept = 0, kept = 0; ; ) {
+- for (inst* curr; (curr = block_take(&binder));) {
+- block b = inst_block(curr);
+- nrefs = block_bind_each(b, body, bindflags);
+- // Check if this binder is referenced from any of the ones we
+- // already know are referenced by body.
+- nrefs += block_count_refs(b, refd);
+- nrefs += block_count_refs(b, body);
+- if (nrefs) {
+- refd = BLOCK(refd, b);
+- kept++;
+- } else {
+- unrefd = BLOCK(unrefd, b);
+- }
+- }
+- if (kept == last_kept)
+- break;
+- last_kept = kept;
+- binder = unrefd;
+- unrefd = gen_noop();
++
++ if (block_bind_subblock(binder, body, bindflags, 0) == 0) {
++ block_free(binder);
++ } else {
++ body = BLOCK(binder, body);
+ }
+- block_free(unrefd);
+- return block_join(refd, body);
++ return body;
+ }
+
+ static void block_mark_referenced(block body) {