chore: add comment to give full context on exception

averissimo · averissimo · commit 44f924b55d52 · 2025-05-20T08:18:06.000+01:00
from @m7pr
diff --git a/R/qenv-eval_code.R b/R/qenv-eval_code.R
@@ -100,6 +100,8 @@ setMethod("eval_code", signature = c("qenv", "expression"), function(object, cod
   } else {
     Reduce(function(u, v) {
       if (inherits(v, "=") && identical(typeof(v), "language")) {
+        # typeof(`=`) is language, but it doesn't dispatch on it, so we need to
+        # explicitly pass it as first class of the object
         class(v) <- unique(c("language", class(v)))
       }
       eval_code(u, v)

Original file line number	Diff line number	Diff line change
`@@ -100,6 +100,8 @@ setMethod("eval_code", signature = c("qenv", "expression"), function(object, cod`
`100`	`100`	`} else {`
`101`	`101`	`Reduce(function(u, v) {`
`102`	`102`	`if (inherits(v, "=") && identical(typeof(v), "language")) {`
	`103`	+ # typeof(`=`) is language, but it doesn't dispatch on it, so we need to
	`104`	`+ # explicitly pass it as first class of the object`
`103`	`105`	`class(v) <- unique(c("language", class(v)))`
`104`	`106`	`}`
`105`	`107`	`eval_code(u, v)`