search

sasagawa888 / eisl

ISLisp interpreter/compiler
Other
289 stars 23 forks source link

Incorrect flet in compiler #283

Closed sasagawa888 closed 1 year ago

sasagawa888 commented 1 year ago 
(flet ((f (x) (+ x 3)))
  (flet ((f (x) (+ x (f x))))
    (f 7)))
sasagawa888 commented 1 year ago

Fixed.


(defun foo (x)
    (flet ((f (x)
               (+ x 3) ))
        (flet ((f (x)
                   (+ x (f x)) ))
            (f x))) )
Easy-ISLisp Ver3.00
> (load "tests/bug.o")
T
> (foo 7)
17
>