"badness"

[No Itisnt]

I'm getting this not-so-helpful message from vars->bind-list in
module/language/tree-il/compile-glil.scm. I've started at this for
awhile and I still don't understand what's causing it. Here's the
smallest test case I could construct that triggers it if this is at
all helpful:

Lua: function identity(x) return x end return identity(2) + identity(2)

Tree-il:
(begin (apply (@ (language lua runtime) new-index!) (@ (language lua
runtime) *global-env-table*) (const identity) (lambda () (lambda-case
(((x) #f %rest #f () (#{\ x262}# %rest)) (begin (apply (primitive
return) (apply (primitive values) (lexical x #{\ x262}#)))))))) (apply
(primitive return) (apply (primitive values) (apply (@ (language lua
runtime) add) (letrec* (%adjust) (%adjust) ((lambda () (lambda-case
(((%value) #f #f #f () (%value)) (lexical %value %value))))) (apply
(primitive call-with-values) (lambda () (lambda-case ((() #f #f #f ()
()) (apply (apply (@ (language lua runtime) index) (@ (language lua
runtime) *global-env-table*) (const identity)) (const 2))))) (lexical
%adjust %adjust))) (letrec* (%adjust) (%adjust) ((lambda ()
(lambda-case (((%value) #f #f #f () (%value)) (lexical %value
%value))))) (apply (primitive call-with-values) (lambda ()
(lambda-case ((() #f #f #f () ()) (apply (apply (@ (language lua
runtime) index) (@ (language lua runtime) *global-env-table*) (const
identity)) (const 2))))) (lexical %adjust %adjust)))))))

Any ideas?