История изменений
Исправление monk, (текущая версия) :
не понимаю пока как это там оказалось?
Ты пишешь:
(push (append (find-vars (car expr)) (find-vars (cdr expr))) my-var)
что эквивалентно
(push (find-vars expr) my-var)
То есть при каждом запуске в my-var добавляется значение последнего вычисления (find-vars expr).
Исходная версия monk, :
не понимаю пока как это там оказалось?
Ты пишешь:
(push (append (find-vars (car expr)) (find-vars (cdr expr))) my-var)
что эквивалентно
(push (append (find-vars expr) my-var)
То есть при каждом запуске в my-var добавляется значение последнего вычисления (find-vars expr).