Remove unused rel1 function.

* gc.c (rel1): Removed.

* gc.h (rel1): Declaration removed.

2 files changed, 0 insertions, 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);