Fix error message printing

`PRINTNAME` returns ann `STRSXP`.
r-lib · Dec 10, 2023 · 73a0ba8 · 73a0ba8
1 parent 8b04658
commit 73a0ba8
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/progress.c b/src/progress.c
@@ -95,7 +95,7 @@ SEXP clic_get_time(void) {
 SEXP clic__find_var(SEXP rho, SEXP symbol) {
   SEXP ret = Rf_findVarInFrame3(rho, symbol, TRUE);
   if (ret == R_UnboundValue) {
-    error("Cannot find variable `%s`.", PRINTNAME(symbol));
+    error("Cannot find variable `%s`.", CHAR(PRINTNAME(symbol)));
 
   } else if (TYPEOF(ret) == PROMSXP) {
     PROTECT(ret);