diff options
Diffstat (limited to 'ruby/step7_quote.rb')
| -rw-r--r-- | ruby/step7_quote.rb | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/ruby/step7_quote.rb b/ruby/step7_quote.rb index 6e6acca..d2ad6ed 100644 --- a/ruby/step7_quote.rb +++ b/ruby/step7_quote.rb @@ -35,6 +35,10 @@ def eval_ast(ast, env) List.new ast.map{|a| EVAL(a, env)} when Vector Vector.new ast.map{|a| EVAL(a, env)} + when Hash + new_hm = {} + ast.each{|k,v| new_hm[EVAL(k,env)] = EVAL(v, env)} + new_hm else ast end @@ -43,6 +47,8 @@ end def EVAL(ast, env) while true + #puts "EVAL: #{_pr_str(ast, true)}" + if not ast.is_a? List return eval_ast(ast, env) end |
