From 60d6932cc36826c417749668919fa85e922768fb Mon Sep 17 00:00:00 2001
From: Stefan Widgren <stefan.widgren@gmail.com>
Date: Sat, 2 Nov 2019 18:22:02 +0100
Subject: [PATCH] Use Rf_isNull

---
 src/trace.cpp | 26 +++++++++++++-------------
 1 file changed, 13 insertions(+), 13 deletions(-)

diff --git a/src/trace.cpp b/src/trace.cpp
index c93c596..c771c34 100644
--- a/src/trace.cpp
+++ b/src/trace.cpp
@@ -116,19 +116,19 @@ check_arguments(const SEXP src,
                 const SEXP outEnd,
                 const SEXP numberOfIdentifiers)
 {
-    if (R_NilValue == root
-        || R_NilValue == inBegin
-        || R_NilValue == inEnd
-        || R_NilValue == outBegin
-        || R_NilValue == outEnd
-        || R_NilValue == numberOfIdentifiers
-        || INTSXP != TYPEOF(root)
-        || INTSXP != TYPEOF(inBegin)
-        || INTSXP != TYPEOF(inEnd)
-        || INTSXP != TYPEOF(outBegin)
-        || INTSXP != TYPEOF(outEnd)
-        || INTSXP != TYPEOF(numberOfIdentifiers)
-        || 1 != LENGTH(numberOfIdentifiers))
+    if (Rf_isNull(root) ||
+        Rf_isNull(inBegin) ||
+        Rf_isNull(inEnd) ||
+        Rf_isNull(outBegin) ||
+        Rf_isNull(outEnd) ||
+        Rf_isNull(numberOfIdentifiers) ||
+        INTSXP != TYPEOF(root) ||
+        INTSXP != TYPEOF(inBegin) ||
+        INTSXP != TYPEOF(inEnd) ||
+        INTSXP != TYPEOF(outBegin) ||
+        INTSXP != TYPEOF(outEnd) ||
+        INTSXP != TYPEOF(numberOfIdentifiers) ||
+        1 != LENGTH(numberOfIdentifiers))
         return 1;
     return 0;
 }