more clear code

gogonzo · gogonzo · commit 8e9bf13bc056 · 2024-11-12T13:17:14.000+01:00
diff --git a/R/qenv-eval_code.R b/R/qenv-eval_code.R
@@ -103,7 +103,7 @@ setMethod("eval_code", signature = c("qenv", "expression"), function(object, cod
   if (length(srcref)) {
     eval_code(object, code = paste(attr(code, "wholeSrcref"), collapse = "\n"))
   } else {
-    Reduce(function(x, code) eval_code(x, code), x = code, init = object)
+    Reduce(function(object, x) eval_code(object, x), init = object, x = code)
   }
 })
 

Original file line number	Diff line number	Diff line change
`@@ -103,7 +103,7 @@ setMethod("eval_code", signature = c("qenv", "expression"), function(object, cod`
`103`	`103`	`if (length(srcref)) {`
`104`	`104`	`eval_code(object, code = paste(attr(code, "wholeSrcref"), collapse = "\n"))`
`105`	`105`	`} else {`
`106`		`- Reduce(function(x, code) eval_code(x, code), x = code, init = object)`
	`106`	`+ Reduce(function(object, x) eval_code(object, x), init = object, x = code)`
`107`	`107`	`}`
`108`	`108`	`})`
`109`	`109`