crystal: add "&" param and 'not' function

[jackhill/mal.git] / crystal / step4_if_fn_do.cr

diff --git a/crystal/step4_if_fn_do.cr b/crystal/step4_if_fn_do.cr
index 79ccb9a..1349938 100755 (executable)
--- a/crystal/step4_if_fn_do.cr
+++ b/crystal/step4_if_fn_do.cr
@@ -82,7 +82,7 @@ def eval(ast, env)
       list.shift(1)
       eval_ast(list, env).last
     when "if"
-      cond = eval(list[1], env)
+      cond = eval(list[1], env).unwrap
       case cond
       when Nil
         list.size >= 4 ? eval(list[3], env) : nil
@@ -119,6 +119,7 @@ end
 
 $repl_env = Mal::Env.new nil
 Mal::NS.each{|k,v| $repl_env.set(k, Mal::Type.new(v))}
+rep "(def! not (fn* (a) (if a false true)))"
 
 while line = my_readline("user> ")
   begin