[wasm] bus error

[PikachuHy]

(letrec ((even?
          (lambda (n)
            (if (zero? n)
                #t
                (odd? (- n 1)))))
         (odd?
          (lambda (n)
            (if (zero? n)
                #f
                (even? (- n 1))))))
  (even? 14))

run success

(letrec ((even?
          (lambda (n)
            (if (zero? n)
                #t
                (odd? (- n 1)))))
         (odd?
          (lambda (n)
            (if (zero? n)
                #f
                (even? (- n 1))))))
  (even? 15))

run fail with bus error

[1]    17930 bus error  node r4rs_test.js

[PikachuHy]

run success

(letrec ((fib (lambda (n)
            (cond ((zero? n) 1)
                  ((= 1 n) 1)
                  (else  (+ (fib (- n 1))
			    (fib (- n 2))))))))
    (fib 9))

run fail

(letrec ((fib (lambda (n)
            (cond ((zero? n) 1)
                  ((= 1 n) 1)
                  (else  (+ (fib (- n 1))
			    (fib (- n 2))))))))
    (fib 10))

[PikachuHy]

`(a `(b ,(+ 1 2) ,(foo ,(+ 1 3) d) e) f)

[PikachuHy]

    (let ((name1 'x)
          (name2 'y))
      `(a `(b ,,name1 ,',name2 d) e))