Remove unused rel1 function.

* gc.c (rel1): Removed.

* gc.h (rel1): Declaration removed.

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