Fix up comments

Author: DavisVaughan

src/main/envir.c

@@ -779,20 +779,20 @@ static SEXP R_GetGlobalCacheLoc(SEXP symbol)
 */
 
 R_BindingType R_GetBindingType(SEXP sym, SEXP env) {
-    // We are currently getting the location in the environment twice:
-    // - In `R_BindingIsActive()`
-    // - In `Rf_findVarInFrame3()`
-    // Ideally we'd do it once, which would require manually walking
-    // over the environment frame / hashtable and get the location to
-    // inspect.
+    /* We are currently getting the location in the environment twice:
+       - In `R_BindingIsActive()`
+       - In `Rf_findVarInFrame3()`
+       Ideally we'd do it once, which would require manually walking
+       over the environment frame / hashtable and get the location to
+       inspect. */
 
     if (TYPEOF(sym) != SYMSXP)
 	error(_("not a symbol"));
     if (TYPEOF(env) != ENVSXP)
 	error(_("not an environment"));
 
-    // This check must be before `Rf_findVarInFrame3()` because that
-    // forces active bindings
+    /* This check must be before `Rf_findVarInFrame3()` because that
+       forces active bindings */
     if (R_BindingIsActive(sym, env))
         return R_BindingTypeActive;
 
@@ -3630,7 +3630,7 @@ attribute_hidden Rboolean R_HasFancyBindings(SEXP rho)
     }
 }
 
-// Equivalent to `substitute()`, but only supports promises
+/* Equivalent to `substitute()`, but only supports promises */
 SEXP R_DelayedBindingExpression(SEXP sym, SEXP env) {
     if (TYPEOF(sym) != SYMSXP)
 	error(_("not a symbol"));
@@ -3645,7 +3645,7 @@ SEXP R_DelayedBindingExpression(SEXP sym, SEXP env) {
     if (PROMISE_IS_EVALUATED(value))
         error(_("not a delayed promise"));
 
-    // This has special handling for bytecode, unlike `PREXPR()`
+    /* This has special handling for bytecode, unlike `PREXPR()` */
     return R_PromiseExpr(value);
 }
 
@@ -3680,7 +3680,7 @@ SEXP R_ForcedBindingExpression(SEXP sym, SEXP env) {
     if (!PROMISE_IS_EVALUATED(value))
         error(_("not a forced promise"));
 
-    // This has special handling for bytecode, unlike `PREXPR()`
+    /* This has special handling for bytecode, unlike `PREXPR()` */
     return R_PromiseExpr(value);
 }