do not persist unresolvedValue

Author: shikokuchuo

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: nanonext
 Type: Package
 Title: NNG (Nanomsg Next Gen) Lightweight Messaging Library
-Version: 0.9.2.9040
+Version: 0.9.2.9041
 Description: R binding for NNG (Nanomsg Next Gen), a successor to ZeroMQ. NNG is 
     a socket library providing high-performance scalability protocols, a
     cross-platform standard for messaging and communications. Serves as a

NEWS.md

@@ -1,4 +1,4 @@
-# nanonext 0.9.2.9040 (development)
+# nanonext 0.9.2.9041 (development)
 
 #### New Features
 

src/aio.c

@@ -768,10 +768,10 @@ SEXP rnng_unresolved(SEXP x) {
     SEXP value = Rf_findVarInFrame(x, nano_DataSymbol);
     if (value == R_UnboundValue)
       value = Rf_findVarInFrame(x, nano_ResultSymbol);
-    xc = Rf_inherits(value, "unresolvedValue");
+    xc = TYPEOF(value) == ENVSXP ? Rf_inherits(value, "unresolvedValue") : value == nano_unresolved;
     break;
   case LGLSXP:
-    xc = Rf_inherits(x, "unresolvedValue");
+    xc = x == nano_unresolved;
     break;
   default:
     xc = 0;

tests/tests.R

@@ -466,10 +466,8 @@ fakelist <- `class<-`("test", "nanoListener")
 nanotesterr(start(fakelist), "valid Listener")
 nanotesterr(close(fakelist), "valid Listener")
 unres <- `class<-`(NA, "unresolvedValue")
-nanotest(unresolved(unres))
-nanotestp(unres)
-unres <- `class<-`("", "unresolvedValue")
 nanotest(!unresolved(unres))
+nanotestp(unres)
 nanotest(identical(call_aio("a"), "a"))
 nanotestn(stop_aio("a"))