shithub: sl

Info  •  Files  •  Log  •  Branches

fltype_t->marked: remove (unused)

--- a/flisp.h

+++ b/flisp.h

@@ -277,7 +277,6 @@

 	cvinitfunc_t init;

 	size_t size;

 	size_t elsz;

-	int marked;

 	numerictype_t numtype;

 };

--- a/types.c

+++ b/types.c

@@ -34,7 +34,6 @@

 		((symbol_t*)ptr(t))->type = ft;

 	}

 	ft->size = sz;

-	ft->marked = 1;

 	if(iscons(t)){

 		if(isarray){

 			fltype_t *eltype = get_type(car_(cdr_(t)));

@@ -72,7 +71,6 @@

 	ft->numtype = NONNUMERIC;

 	ft->size = sz;

 	ft->vtable = vtab;

-	ft->marked = 1;

 	ft->init = init;

 	return ft;

 }