shithub: sl

Info  •  Files  •  Log  •  Branches

print: assume all builtins can be looked uo by their pointer

--- a/src/print.c

+++ b/src/print.c

@@ -817,18 +817,14 @@

 	value_t label;

 	if(cv_class(cv) == FL(builtintype)){

-		void *fptr = *(void**)data;

 		label = (value_t)ptrhash_get(&FL(reverse_dlsym_lookup_table), cv);

-		if(label == (value_t)HT_NOTFOUND){

-			FL(hpos) += ios_printf(f, "#<builtin @%p>", fptr);

+		assert(label != (value_t)HT_NOTFOUND);

+		if(FL(print_princ)){

+			outs(f, symbol_name(label));

 		}else{

-			if(FL(print_princ)){

-				outs(f, symbol_name(label));

-			}else{

-				outsn(f, "#fn(", 4);

-				outs(f, symbol_name(label));

-				outc(f, ')');

-			}

+			outsn(f, "#fn(", 4);

+			outs(f, symbol_name(label));

+			outc(f, ')');

 		}

 	}else if(cv_class(cv)->vtable != nil && cv_class(cv)->vtable->print != nil){

 		cv_class(cv)->vtable->print(v, f);