From c30efef469e22c8ba345a72c058c28362e57b746 Mon Sep 17 00:00:00 2001 From: Joel Martin Date: Mon, 3 Nov 2014 20:02:09 -0600 Subject: R: add step6_file and step7_quote Change symbols to be special class. --- r/step2_eval.r | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'r/step2_eval.r') 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))) -- cgit v1.2.3