From b68e41aa44131257b1c0386d3b9e5ea5f223f9ad Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Fri, 6 Nov 2015 07:45:54 -0800
Subject: Remove unused rel1 function.

* gc.c (rel1): Removed.

* gc.h (rel1): Declaration removed.
---
 gc.c | 7 -------
 gc.h | 1 -
 2 files changed, 8 deletions(-)

diff --git a/gc.c b/gc.c
index bae671ec..58f0790c 100644
--- a/gc.c
+++ b/gc.c
@@ -111,13 +111,6 @@ val prot1(val *loc)
   return nil; /* for use in macros */
 }
 
-void rel1(val *loc)
-{
-  /* protect and release calls must nest. */
-  if (*--gc_prot_top != loc)
-    abort();
-}
-
 void protect(val *first, ...)
 {
   val *next = first;
diff --git a/gc.h b/gc.h
index d3f3ba86..a945da7d 100644
--- a/gc.h
+++ b/gc.h
@@ -27,7 +27,6 @@
 void gc_init(val *stack_bottom);
 void gc_late_init(void);
 val prot1(val *loc);
-void rel1(val *loc);
 void protect(val *, ...);
 val make_obj(void);
 void gc(void);
-- 
cgit v1.2.3