shithub: femtolisp

Info  •  Files  •  Log  •  Branches

remove remnants of BOEHM

--- a/flisp.c

+++ b/flisp.c

@@ -2078,8 +2078,8 @@

 // initialization -------------------------------------------------------------

-static void

-lisp_init(size_t initial_heapsize)

+void

+fl_init(size_t initial_heapsize)

 {

 	int i;

@@ -2199,15 +2199,6 @@

 fl_toplevel_eval(value_t expr)

 {

 	return fl_applyn(1, symbol_value(evalsym), expr);

-}

-

-void

-fl_init(size_t initial_heapsize)

-{

-#ifdef BOEHM_GC

-	GC_init();

-#endif

-	lisp_init(initial_heapsize);

 }

 int

--- a/iostream.c

+++ b/iostream.c

@@ -332,9 +332,7 @@

 		// outgrew initial space

 		size_t sz;

 		cv->data = ios_takebuf(&dest, &sz);

-#ifndef BOEHM_GC

 		cv_autorelease(cv);

-#endif

 	}else{

 		((char*)cv->data)[n] = '\0';

 	}

@@ -378,9 +376,7 @@

 		char *b = ios_takebuf(st, &n); n--;

 		b[n] = '\0';

 		str = cvalue_from_ref(stringtype, b, n, FL_NIL);

-#ifndef BOEHM_GC

 		cv_autorelease(ptr(str));

-#endif

 	}

 	return str;

 }