tweak use of Rboolean

git-svn-id: https://svn.r-project.org/R/trunk@87803 00db46b3-68df-0310-9c12-caf00c1e9a41

Author: ripley

src/library/stats/src/loessc.c

@@ -1,5 +1,5 @@
 /*
- * Copyright (C) 1998--2023  The R Core Team
+ * Copyright (C) 1998--2025  The R Core Team
  *
  * The authors of this software are Cleveland, Grosse, and Shyu.
  * Copyright (c) 1989, 1992 by AT&T.
@@ -113,7 +113,7 @@ loess_raw(double *y, double *x, double *weights, double *robust, int *d,
 
     *trL = 0;
 
-    loess_workspace(*d, *n, *span, *degree, *nonparametric, drop_square, *sum_drop_sqr, *setLf);
+    loess_workspace(*d, *n, *span, *degree, *nonparametric, drop_square, *sum_drop_sqr, (Rboolean) *setLf);
     v[1] = *cell;/* = v(2) in Fortran (!) */
 
     /* NB:  surf_stat  =  (surface / statistics);

src/modules/internet/internet.c

@@ -331,7 +331,7 @@ static SEXP in_do_download(SEXP args)
     if(length(sfile) > 1)
 	warning(_("only first element of 'destfile' argument used"));
     file = translateChar(STRING_ELT(sfile, 0));
-    IDquiet = quiet = asLogical(CAR(args)); args = CDR(args);
+    IDquiet = quiet = asRbool(CAR(args), R_NilValue); args = CDR(args);
     if(quiet == NA_LOGICAL)
 	error(_("invalid '%s' argument"), "quiet");
     smode =  CAR(args); args = CDR(args);