1 files changed, 10 insertions, 7 deletions
diff --git a/ruby/step9_interop.rb b/ruby/step9_interop.rb
index e27bdfa..011aea0 100644
--- a/ruby/step9_interop.rb
+++ b/ruby/step9_interop.rb
@@ -11,20 +11,19 @@ def READ(str)
 end
 
 # eval
-def is_pair(x)
+def pair?(x)
     return sequential?(x) && x.size > 0
 end
 
 def quasiquote(ast)
-    if not is_pair(ast)
-        return List.new([:quote, ast])
+    if not pair?(ast)
+        return List.new [:quote, ast]
     elsif ast[0] == :unquote
         return ast[1]
-    elsif is_pair(ast[0]) && ast[0][0] == :"splice-unquote"
-        #p "xxx:", ast, List.new([:concat, ast[0][1], quasiquote(ast.drop(1))])
-        return List.new([:concat, ast[0][1], quasiquote(ast.drop(1))])
+    elsif pair?(ast[0]) && ast[0][0] == :"splice-unquote"
+        return List.new [:concat, ast[0][1], quasiquote(ast.drop(1))]
     else
-        return List.new([:cons, quasiquote(ast[0]), quasiquote(ast.drop(1))])
+        return List.new [:cons, quasiquote(ast[0]), quasiquote(ast.drop(1))]
     end
 end
 
@@ -52,6 +51,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