t-kalinowski
diff --git a/‎R/c-wrapper.R‎
Lines changed: 1 addition & 1 deletion b/‎R/c-wrapper.R‎
Lines changed: 1 addition & 1 deletion
@@ -44,7 +44,7 @@ make_c_bridge <- function(fsub, strict = TRUE, headers = TRUE) {
     append(c_body) <- return_var_c_defs(return_var, fsub@scope)
     add(n_protected) <- 1L # allocated return var
     if (return_var@rank > 1) {
-      add(n_protected) <- 1L  # allocated _dim_sexp
+      add(n_protected) <- 1L # allocated _dim_sexp
     }
   }
Original file line number	Diff line number	Diff line change
`@@ -44,7 +44,7 @@ make_c_bridge <- function(fsub, strict = TRUE, headers = TRUE) {`
`44`	`44`	`append(c_body) <- return_var_c_defs(return_var, fsub@scope)`
`45`	`45`	`add(n_protected) <- 1L # allocated return var`
`46`	`46`	`if (return_var@rank > 1) {`
`47`		`- add(n_protected) <- 1L # allocated _dim_sexp`
	`47`	`+ add(n_protected) <- 1L # allocated _dim_sexp`
`48`	`48`	`}`
`49`	`49`	`}`
`50`	`50`