From 1956010ec79fbab604efc2b60d0af325e91f67b8 Mon Sep 17 00:00:00 2001
From: Paul Buetow <paul@buetow.org>
Date: Mon, 20 Oct 2008 18:36:28 +0000
Subject: Improved GC debugging. Debugging printings now labeled with
 DEBUG::$NAME::$ETC::..:

---
 src/core/symbol.c | 22 +++++++++++-----------
 1 file changed, 11 insertions(+), 11 deletions(-)

(limited to 'src/core/symbol.c')

diff --git a/src/core/symbol.c b/src/core/symbol.c
index 37a0cae..b6fd2ed 100644
--- a/src/core/symbol.c
+++ b/src/core/symbol.c
@@ -49,18 +49,18 @@ symbol_new(SymbolType sym, void *p_val) {
 
 void
 symbol_delete(Symbol *p_symbol) {
-	if (--p_symbol->i_refs == 0) {
-   switch (symbol_get_sym(p_symbol)) {
-   case SYM_PROCEDURE:
-   {
-      List *p_list_token = symbol_get_val(p_symbol);
-      list_delete(p_list_token);
+   if (--p_symbol->i_refs == 0) {
+      switch (symbol_get_sym(p_symbol)) {
+      case SYM_PROCEDURE:
+      {
+         List *p_list_token = symbol_get_val(p_symbol);
+         list_delete(p_list_token);
+      }
+      break;
+      NO_DEFAULT;
+      }
+      free(p_symbol);
    }
-   break;
-   NO_DEFAULT;
-   }
-   free(p_symbol);
-	}
 }
 
 void
-- 
cgit v1.2.3