FEAT: provide info, when molding a released handle, that it is already released

Author: Oldes

src/core/s-mold.c

@@ -555,6 +555,10 @@ STOID Mold_Handle(REBVAL *value, REB_MOLD *mold)
 	if (name != NULL) {
 		Append_Bytes(mold->series, "#[handle! ");
 		Append_Bytes(mold->series, cs_cast(name));
+		if (IS_CONTEXT_HANDLE(value)) {
+			if (!IS_USED_HOB(VAL_HANDLE_CTX(value)))
+				Append_Bytes(mold->series, " unset!");
+		}
 		Append_Byte(mold->series, ']');
 	}
 	else {

src/os/host-ext-test.c

@@ -132,6 +132,8 @@ char *RX_Spec =
 
 			// Sometimes handle may depend on another handle.. this test simulates it.
 			"[y: hob1/with #{00} x  x: none  print [{The new handle keeps reference to the second handle:} mold y/data y/data/2/id]]\n"
+			// Manually releasing a handle...
+			"[print [{Relasing:} y]  release y  print [{Result:} y {should have no data:} y/data]]\n" 
 
 			"[h: hndl1]\n"
 			"[hndl2 h]\n"
@@ -186,7 +188,7 @@ REBCNT Test_Sync_Callback(REBSER *obj, REBCNT word, RXIARG *result)
 	RXIARG args[4];
 	REBCNT n;
 
-	printf("Test_Sync_Callback: ");
+	//printf("Test_Sync_Callback: ");
 
 	// These can be on the stack, because it's synchronous.
 	CLEAR(&cbi, sizeof(cbi));
@@ -214,7 +216,7 @@ REBCNT Test_Async_Callback(REBSER *obj, REBCNT word)
 	RXIARG *args;
 	REBCNT n;
 
-	printf("Test_Async_Callback: ");
+	//printf("Test_Async_Callback: ");
 
 	// These cannot be on the stack, because they are used
 	// when the callback happens later.