--- runtime/Clib/cmain.c.orig 2018-12-18 16:52:09.913524598 -0700
+++ runtime/Clib/cmain.c 2018-12-18 16:52:25.221479441 -0700
@@ -116,10 +116,6 @@ bigloo_exit( obj_t val ) {
n = (long)INTEGERP( val ) ? (long)CINT( val ) : 0;
exit( n );
-
- BGL_MUTEX_UNLOCK( bgl_exit_mutex() );
-
- return val;
}
/*---------------------------------------------------------------------*/
--- runtime/Clib/cports.c.orig 2018-12-18 16:51:21.828666449 -0700
+++ runtime/Clib/cports.c 2018-12-18 16:52:25.222479438 -0700
@@ -1823,6 +1823,7 @@ bgl_input_port_seek( obj_t port, long po
"input-port does not support seeking",
port );
}
+ return port;
}
/*---------------------------------------------------------------------*/
--- runtime/Clib/crgc.c.orig 2018-12-18 06:25:53.000000000 -0700
+++ runtime/Clib/crgc.c 2018-12-18 16:52:25.223479435 -0700
@@ -859,6 +859,7 @@ int rgc_debug_port( obj_t port, char *ms
port, BSTRING_TO_STRING( INPUT_PORT_NAME( port ) ),
matchstart, matchstop, forward, bufpos, bufsiz,
eof ? "eof" : "" );
+ return 0;
}