aboutsummaryrefslogtreecommitdiff
path: root/r/step3_env.r
diff options
context:
space:
mode:
authorJoel Martin <github@martintribe.org>2014-11-03 20:02:09 -0600
committerJoel Martin <github@martintribe.org>2015-01-09 16:16:43 -0600
commitc30efef469e22c8ba345a72c058c28362e57b746 (patch)
treee2b9a4252c7771dd8f4554c4b248d370b66e0ae3 /r/step3_env.r
parent01feedfe22a381c6b6ca79bdf0db798aa08c4104 (diff)
downloadmal-c30efef469e22c8ba345a72c058c28362e57b746.tar.gz
mal-c30efef469e22c8ba345a72c058c28362e57b746.zip
R: add step6_file and step7_quote
Change symbols to be special class.
Diffstat (limited to 'r/step3_env.r')
-rw-r--r--r/step3_env.r2
1 files changed, 1 insertions, 1 deletions
diff --git a/r/step3_env.r b/r/step3_env.r
index 34bc354..a86a85b 100644
--- a/r/step3_env.r
+++ b/r/step3_env.r
@@ -9,7 +9,7 @@ READ <- function(str) {
}
eval_ast <- function(ast, env) {
- if (is.symbol(ast)) {
+ if (.symbol_q(ast)) {
Env.get(env, ast)
} else if (.list_q(ast)) {
new.listl(lapply(ast, function(a) EVAL(a, env)))