     callable = (values, kont, store) =>
       if not eq arity, (length values)
         throw new LispInterpreterError "Incorrect Arity for #{name}"
-      kont (inValue (value.apply(null, listToVector(values)))), store
+      kont (value.apply(null, listToVector(values))), store
     @definitial name, (inValue callable)
 
   defarithmetic: (name, value, arity) ->

      else
        qont store, a
    aloop(num, cons()))()

sBehavior = new Symbol 'behavior'
sBoolean  = new Symbol 'boolean'

#
#
lextends = (fn, ids, values) ->
  if (pairp ids)
    extend (lextends fn, (cdr ids), (cdr values)), (car ids), (car values)
  else
    fn

translate = (exp, store, qont) ->
  if (pairp exp)
