FEAT: conversion of struct! to binary!

Author: Oldes

src/core/t-string.c

@@ -268,6 +268,10 @@ static REBSER *make_binary(REBVAL *arg, REBOOL make)
 		ser->data[12] = 0;
 		break;
 
+	case REB_STRUCT:
+		ser = Copy_Series_Part(VAL_STRUCT_DATA_BIN(arg), VAL_STRUCT_OFFSET(arg), VAL_STRUCT_LEN(arg));
+		break;
+
 	default:
 		ser = 0;
 	}

src/tests/units/struct-test.r3

@@ -133,6 +133,14 @@ Rebol [
 
 ===end-group===
 
+
+===start-group=== "Struct conversion"
+--test-- "to binary! struct!"
+	s: make struct! [a: [uint16!] 1 b: [int32!] -1]
+	--assert #{0100FFFFFFFF} = to binary! s
+===end-group===
+
+
 ===start-group=== "Invalid struct construction"
 --test-- "Missing struct init value"
 ;@@ https://github.com/zsx/r3/issues/50