[plt-scheme] Okay, this is ugly

It's hard to even begin to explain why this code is awful,
and almost certainly buggy, but aren't you just trying to say:

(define (env-get-binding s env)
  (unless (null? env)
    (hash-table-get (car env) s
                    (lambda ()
                      (env-get-binding s (cdr env))))))

?

Shriram