shithub: sl

Info  •  Files  •  Log  •  Branches

clean up global symbols

--- a/src/compress.c

+++ b/src/compress.c

@@ -4,6 +4,8 @@

 #include "types.h"

 #include "brieflz.h"

+static value_t FL_sizesym, FL_tosym;

+

 BUILTIN("lz-pack", lz_pack)

 {

 	if(nargs < 1)

--- a/src/flisp.c

+++ b/src/flisp.c

@@ -26,9 +26,7 @@

 value_t FL_nulsym, FL_alarmsym, FL_backspacesym, FL_tabsym, FL_linefeedsym, FL_newlinesym;

 value_t FL_vtabsym, FL_pagesym, FL_returnsym, FL_escsym, FL_spacesym, FL_deletesym;

 value_t FL_IOError, FL_ParseError, FL_TypeError, FL_ArgError, FL_MemoryError;

-value_t FL_DivideError, FL_BoundsError, FL_Error, FL_KeyError, FL_EnumerationError;

-value_t FL_UnboundError;

-value_t FL_sizesym, FL_tosym;

+value_t FL_DivideError, FL_BoundsError, FL_Error, FL_KeyError, FL_UnboundError;

 value_t FL_printwidthsym, FL_printreadablysym, FL_printprettysym, FL_printlengthsym;

 value_t FL_printlevelsym;

@@ -1330,7 +1328,6 @@

 	FL_MemoryError = symbol("memory-error", false);

 	FL_BoundsError = symbol("bounds-error", false);

 	FL_DivideError = symbol("divide-error", false);

-	FL_EnumerationError = symbol("enumeration-error", false);

 	FL_Error = symbol("error", false);

 	FL_conssym = symbol("cons", false);

 	FL_symbolsym = symbol("symbol", false);

--- a/src/flisp.h

+++ b/src/flisp.h

@@ -441,14 +441,11 @@

 extern value_t FL_nulsym, FL_alarmsym, FL_backspacesym, FL_tabsym, FL_linefeedsym, FL_newlinesym;

 extern value_t FL_vtabsym, FL_pagesym, FL_returnsym, FL_escsym, FL_spacesym, FL_deletesym;

 extern value_t FL_IOError, FL_ParseError, FL_TypeError, FL_ArgError, FL_MemoryError;

-extern value_t FL_DivideError, FL_BoundsError, FL_Error, FL_KeyError, FL_EnumerationError;

-extern value_t FL_UnboundError;

-extern value_t FL_sizesym, FL_tosym;

-extern value_t FL_fsosym;

+extern value_t FL_DivideError, FL_BoundsError, FL_Error, FL_KeyError, FL_UnboundError;

 extern value_t FL_printwidthsym, FL_printreadablysym, FL_printprettysym, FL_printlengthsym;

 extern value_t FL_printlevelsym;

-extern value_t FL_tablesym, FL_arraysym;

+extern value_t FL_arraysym;

 extern value_t FL_iostreamsym, FL_rdsym, FL_wrsym, FL_apsym, FL_crsym, FL_truncsym;

 extern value_t FL_instrsym, FL_outstrsym;

 extern value_t FL_int8sym, FL_uint8sym, FL_int16sym, FL_uint16sym, FL_int32sym, FL_uint32sym;

--- a/src/table.c

+++ b/src/table.c

@@ -198,6 +198,5 @@

 void

 table_init(void)

 {

-	FL_tablesym = symbol("table", false);

-	FL(tabletype) = define_opaque_type(FL_tablesym, sizeof(htable_t), &table_vtable, nil);

+	FL(tabletype) = define_opaque_type(symbol("table", false), sizeof(htable_t), &table_vtable, nil);

 }