Don't make named let as letrec

[jcubic]

This is known bug in LIPS:

(test.failing "std: Petrofsky let"
      (lambda (t)
        (t.is (let - ((n (- 1))) n) -1)))

It's because this named let expands into:

(letrec ((- (lambda (n) n))) (- (- 1)))

But this was a lazy implementation to not have to implement named let in JavaScript like other let expressions.

Test created in 2022-05-31 (according to git blame)

[jcubic]

The solution is to create a list of initial arguments outside of let:

(let ((#:args (list (- 1))))
  (letrec ((- (lambda (n) n)))
    (apply - #:args)))