write-table for templates is broken on master. master:
arc> (deftem x id 1)
((id #<procedure: g3929>))
arc> (tablist (inst 'x))
hash-for-each: contract violation
expected: hash?
given: '#(tagged tem (x #hash((id . 1)) #hash() . nil))
argument position: 1st
other arguments...:
#<procedure: tablist>
context...:
~/anarki/ac.scm:1125:15: maptable
tablist
~/anarki/ac.scm:1233:4
Switched to a new branch 'stable' $ ./arc.sh
main: not defined or required into the top-level environment
./arc.sh: 40: [: Welcome: unexpected operator
Use (quit) or ^D to quit, (tl) to return here after an interrupt.
arc> (deftem x id 1)
((id #<procedure: gs1725>))
arc> (tablist (inst 'x))
((id 1))
Looked around, didn't see a better way to fix this. Unsure how to add an appropriate unit test.
Looked around, didn't see a better place to put this.Thanks |