~ chicken-core (chicken-5) d481d9d0bfd2cce61012210d0010224e03ea00b4

commit d481d9d0bfd2cce61012210d0010224e03ea00b4
Author:     Peter Bex <peter@more-magic.net>
AuthorDate: Fri Apr 5 11:18:03 2019 +0200
Commit:     Evan Hanson <evhan@foldling.org>
CommitDate: Sun Apr 7 15:20:13 2019 +1200

    Remove unused and undocumented C_{delete,set}_symbol_table functions
    
    Signed-off-by: Evan Hanson <evhan@foldling.org>

diff --git a/NEWS b/NEWS
index 825acbfb..ab9221fb 100644
--- a/NEWS
+++ b/NEWS
@@ -6,6 +6,11 @@
   - When using (set-file-position!) on a port, its EOF status will now
     be reset.
 
+- Runtime system
+  - Removed the unused, undocumented (and incorrect!) C functions
+    C_delete_symbol_table and C_set_symbol_table.
+
+
 5.0.1
 
 - Type system
diff --git a/chicken.h b/chicken.h
index 7a2f3a14..1a990b69 100644
--- a/chicken.h
+++ b/chicken.h
@@ -1825,8 +1825,6 @@ C_fctexport C_word C_fcall C_evict_block(C_word from, C_word ptr) C_regparm;
 C_fctexport void C_fcall C_gc_protect(C_word **addr, int n) C_regparm;
 C_fctexport void C_fcall C_gc_unprotect(int n) C_regparm;
 C_fctexport C_SYMBOL_TABLE *C_new_symbol_table(char *name, unsigned int size) C_regparm;
-C_fctexport void C_delete_symbol_table(C_SYMBOL_TABLE *st) C_regparm;
-C_fctexport void C_set_symbol_table(C_SYMBOL_TABLE *st) C_regparm;
 C_fctexport C_SYMBOL_TABLE *C_find_symbol_table(char *name) C_regparm;
 C_fctexport C_word C_find_symbol(C_word str, C_SYMBOL_TABLE *stable) C_regparm;
 C_fctexport C_word C_fcall C_lookup_symbol(C_word sym) C_regparm;
diff --git a/runtime.c b/runtime.c
index 75cc8d41..b8bccb75 100644
--- a/runtime.c
+++ b/runtime.c
@@ -1051,26 +1051,6 @@ C_regparm C_SYMBOL_TABLE *C_new_symbol_table(char *name, unsigned int size)
 }  
 
 
-C_regparm void C_delete_symbol_table(C_SYMBOL_TABLE *st)
-{
-  C_SYMBOL_TABLE *stp, *prev = NULL;
-
-  for(stp = symbol_table_list; stp != NULL; stp = stp->next)
-    if(stp == st) {
-      if(prev != NULL) prev->next = stp->next;
-      else symbol_table_list = stp->next;
-
-      return;
-    }
-}
-
-
-C_regparm void C_set_symbol_table(C_SYMBOL_TABLE *st)
-{
-  symbol_table = st;
-}
-
-
 C_regparm C_SYMBOL_TABLE *C_find_symbol_table(char *name)
 {
   C_SYMBOL_TABLE *stp;