diff options
Diffstat (limited to 'r/step2_eval.r')
| -rw-r--r-- | r/step2_eval.r | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/r/step2_eval.r b/r/step2_eval.r index 265a431..9bcddcf 100644 --- a/r/step2_eval.r +++ b/r/step2_eval.r @@ -8,7 +8,7 @@ READ <- function(str) { } eval_ast <- function(ast, env) { - if (is.symbol(ast)) { + if (.symbol_q(ast)) { env[[as.character(ast)]] } else if (.list_q(ast)) { new.listl(lapply(ast, function(a) EVAL(a, env))) |