Infinite recursion in let bindings is not detected

[raxod502]

If I understand correctly, the following code will just read uninitialized memory rather than produce an error:

(let ((foo foo))
  ...)