add compat for existing and future versions

Author: shikokuchuo

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: nanonext
 Type: Package
 Title: NNG (Nanomsg Next Gen) Lightweight Messaging Library
-Version: 1.1.1.9016
+Version: 1.1.1.9017
 Description: R binding for NNG (Nanomsg Next Gen), a successor to ZeroMQ. NNG is
     a socket library implementing 'Scalability Protocols', a reliable,
     high-performance standard for common communications patterns including

NEWS.md

@@ -1,4 +1,4 @@
-# nanonext 1.1.1.9016 (development)
+# nanonext 1.1.1.9017 (development)
 
 #### New Features
 

src/core.c

@@ -239,15 +239,11 @@ void nano_serialize(nano_buf *buf, const SEXP object, SEXP hook) {
 
   NANO_ALLOC(buf, NANONEXT_INIT_BUFSIZE);
   const int reg = hook != R_NilValue;
-  int vec;
-
-  if (reg || special_bit) {
-    vec = reg ? NANO_INTEGER(CADDDR(hook)) : 0;
-    buf->buf[0] = 0x7;
-    buf->buf[1] = (uint8_t) vec;
-    buf->buf[3] = special_bit;
-    buf->cur += 16;
-  }
+  const int vec = reg ? NANO_INTEGER(CADDDR(hook)) : 0;
+  buf->buf[0] = 0x7;
+  buf->buf[1] = (uint8_t) vec;
+  buf->buf[2] = special_bit;
+  buf->cur += 16;
 
   struct R_outpstream_st output_stream;
 

tests/tests.R

@@ -205,7 +205,7 @@ nanotest(if (is.null(p)) TRUE else is_nano(p))
 nanotest(.mark())
 nanotestaio(r <- send_aio(if (is.null(p)) rep else p, "", timeout = 500))
 nanotesterr(collect_pipe(r), "valid")
-nanotest(req$recv(mode = 8L, block = 500)[4L] == 1L)
+nanotest(req$recv(mode = 8L, block = 500)[3L] == 1L)
 nanotest(!.mark(FALSE))
 
 nanotestnano(ctx <- context(rep))