   (zero [self] self))
 
 (defrecord closure [formal body env]
-  JLObject
+  JLClosure
   (closure? [self] true)
   Applicable
   (jl-apply [self arg]

(defn jl-do [form]
  (jl-eval (syntax form) inital-env))

(jl-eval (syntax-body (sexp-slurp (clojure.java.io/file "foo.jlad"))) inital-env)

  (jl-eval [self env]))

(defrecord variable [name]
  JLVariable
  (variable? [self] true)
  Evaluable
  (jl-eval [self env] (lookup env name))
