FEAT: better info when native extension fails to load its library

related to: Oldes/Rebol-issues#2579

src/boot/errors.reb

@@ -190,7 +190,7 @@ Access: [
 ;   would-block:        [{operation on port} :arg1 {would block}]
 ;   no-action:          [{this type of port does not support the} :arg1 {action}]
 ;   serial-timeout:     {serial port timeout}
-	no-extension:       [{cannot open extension:} :arg1]
+	no-extension:       [{cannot open extension:} :arg1 {reason:} :arg2]
 	bad-extension:      [{invalid extension format:} :arg1]
 	extension-init:     [{extension cannot be initialized (check version):} :arg1]
 

src/core/f-extension.c

@@ -361,8 +361,8 @@ x*/	int Do_Callback(REBSER *obj, u32 name, RXIARG *args, RXIARG *result)
 
 		// Try to load the DLL file:
 		if (!(dll = OS_OPEN_LIBRARY((REBCHR*)SERIES_DATA(path), &error))) {
-			//printf("error: %i\n", error);
-			Trap1(RE_NO_EXTENSION, val);
+			DS_PUSH_INTEGER(error);
+			Trap2(RE_NO_EXTENSION, val, DS_TOP);
 		}
 
 		// Call its info() function for header and code body:

src/mezz/sys-load.reb

@@ -489,7 +489,10 @@ load-module: function [
 				not tmp [unless attempt [data: read source] [return none]]
 				tmp = 'extension [ ; special processing for extensions
 					; load-extension also fails for url!
-					unless attempt [ext: load-extension source] [return none]
+					try/with [ext: load-extension source] [
+						log/error 'REBOL system/state/last-error
+						return none
+					]
 					data: ext/lib-boot ; save for checksum before it's unset
 					case [
 						import [set [hdr: code:] load-ext-module ext]