encoding/cbor: adhere to new quaternion rules of master

core/encoding/cbor/unmarshal.odin

@@ -903,9 +903,9 @@ _assign_float :: proc(val: any, f: $T) -> bool {
 	case complex64:  dst = complex(f32(f), 0)
 	case complex128: dst = complex(f64(f), 0)
 	
-	case quaternion64:  dst = quaternion(f16(f), 0, 0, 0)
-	case quaternion128: dst = quaternion(f32(f), 0, 0, 0)
-	case quaternion256: dst = quaternion(f64(f), 0, 0, 0)
+	case quaternion64:  dst = quaternion(w=f16(f), x=0, y=0, z=0)
+	case quaternion128: dst = quaternion(w=f32(f), x=0, y=0, z=0)
+	case quaternion256: dst = quaternion(w=f64(f), x=0, y=0, z=0)
 	
 	case: return false
 	}

tests/core/encoding/cbor/test_core_cbor.odin

@@ -177,7 +177,7 @@ test_marshalling :: proc(t: ^testing.T) {
 			ennie = .EFoo,
 			ennieb = {.EBar},
 
-			quat = quaternion(16, 17, 18, 19),
+			quat = quaternion(w=16, x=17, y=18, z=19),
 			comp = complex(32, 33),
 
 			important = '!',