    (emit-value context gen form)))
 
 (defn emit-symbol
-  [{:keys [params closed-overs locals] :as env} context gen sym]
+  [{:keys [params closed-overs locals thistype] :as env} context gen sym]
   (cond
    ((set params) sym)
    (. gen loadArg (.indexOf params sym))

   (match (seq form)
     nil form
     
     (['quote val] :seq) val

     (['lambda params & body] :seq)
     (let [lambda-env (extend-env env params)]

    (dotimes [n (count fv)]
      (. gen loadThis)
      (. gen loadArg n)
      (. gen putField (Type/getObjectType fqname) (close-name (nth fv n)) object-type))
    (. gen returnValue)
    (. gen endMethod)))

