def inner(f):
appfn = interp2app(f)
func.install(tp, appfn)
return f
from system.persistent_array_map import EMPTY
s = EMPTY
for x in range(0, len(args_w), 2):
s = assoc.invoke3(s, args_w[x], args_w[x + 1])
return s
@interp2app
def keyword(ns, name):
from system.keywords import keyword
return keyword(ns, name)
hash_map = HashMap()
from system.util import interp2app
cons = interp2app(lambda a, b: _cons.invoke2(b, a), "cons")
assoc = interp2app(lambda a, b, c: _assoc.invoke3(a, b, c), "assoc")
add = interp2app(lambda a, b: _add.invoke2(a, b), "+")
count = interp2app(lambda a: _count.invoke1(a), "count")
nth = interp2app(lambda a, b: _nth.invoke2(a, b), "nth")
repr = PolymorphicFunc()
eval = PolymorphicFunc()
first = PolymorphicFunc()
next = PolymorphicFunc()
_count = PolymorphicFunc()
_cons = PolymorphicFunc()
_assoc = PolymorphicFunc()
_get = PolymorphicFunc()
