bldc/tests/test_let_10.lisp

(define ok
    (lambda ()
      (let ((b (+ 12 15)))
        (let ((c 25))
          (+ b c)))))

(define f (lambda (x)
            (progn
              (ok)
              (yield 10)
              (if (= x 0) (ok) (f (- x 1))))))

(= (f 1000) 52)
Squashed 'lispBM/lispBM/' changes from 95c77be2..b6e3a0e5 b6e3a0e5 fix mistake in eval_let where an intermediate value could be forgotten by the Mark phase and end up removed by GC f327c61b renaming all pop_u32 and push_u32 functions to just push and pop git-subtree-dir: lispBM/lispBM git-subtree-split: b6e3a0e5286c6380e4a9170819404752afcdf5e1 2022-03-27 05:58:32 -07:00			`(define ok`
			`(lambda ()`
			`(let ((b (+ 12 15)))`
			`(let ((c 25))`
			`(+ b c)))))`

			`(define f (lambda (x)`
			`(progn`
			`(ok)`
			`(yield 10)`
			`(if (= x 0) (ok) (f (- x 1))))))`

			`(= (f 1000) 52)`