shithub: sl

Info  •  Files  •  Log  •  Branches

remove sl_strtypesym

--- a/src/cvalues.c

+++ b/src/cvalues.c

@@ -1329,9 +1329,6 @@

 	ctor_cv_intern(arr, NONNUMERIC, int);

-	sl_strtypesym = mk_csym("*str-type*");

-	setc(sl_strtypesym, mk_list2(sl_arrsym, sl_utf8sym));

-

 	mk_primtype(s8, s8int);

 	mk_primtype(u8, u8int);

 	mk_primtype(s16, s16int);

@@ -1350,6 +1347,6 @@

 	sl_mptype->init = cvalue_mp_init;

 	sl_mptype->vtable = &mp_vtable;

-	sl_strtype = get_type(sym_value(sl_strtypesym));

+	sl_strtype = get_type(mk_list2(sl_arrsym, sl_utf8sym));

 	sl_emptystr = cvalue_from_ref(sl_strtype, (char*)"", 0);

 }

--- a/src/sl.c

+++ b/src/sl.c

@@ -29,7 +29,6 @@

 sl_v sl_s8sym, sl_u8sym, sl_s16sym, sl_u16sym, sl_s32sym, sl_u32sym;

 sl_v sl_s64sym, sl_u64sym, sl_bignumsym;

 sl_v sl_utf8sym, sl_runesym, sl_floatsym, sl_doublesym;

-sl_v sl_strtypesym;

 sl_type *sl_mptype, *sl_builtintype;

 sl_type *sl_s8type, *sl_u8type;

--- a/src/sl.h

+++ b/src/sl.h

@@ -433,7 +433,6 @@

 extern sl_v sl_s8sym, sl_u8sym, sl_s16sym, sl_u16sym, sl_s32sym, sl_u32sym;

 extern sl_v sl_s64sym, sl_u64sym, sl_bignumsym;

 extern sl_v sl_utf8sym, sl_runesym, sl_floatsym, sl_doublesym;

-extern sl_v sl_strtypesym;

 extern sl_type *sl_mptype, *sl_builtintype;

 extern sl_type *sl_s8type, *sl_u8type;