enrico
/
eoc
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Maybe unnecessary

This commit is contained in:
Enrico Lumetti 2021-04-30 19:55:59 +02:00
parent c1c29c0782
commit 8c1294a56e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
remove-complex-oper.scm
View File

@ -96,7 +96,7 @@
(append assoc-list (list `(,var ,exp-tmp))))) (append assoc-list (list `(,var ,exp-tmp)))))
(set! new-body (set! new-body
(if (symbol? exp-tmp) (if (symbol? exp-tmp)
(if elide-tmp (substitute-var exp-tmp var new-body) new-body) new-body ;(substitute-var exp-tmp var new-body) new-body)
`(let ([,var ,exp-tmp]) ,new-body))) `(let ([,var ,exp-tmp]) ,new-body)))
(values (wrap-associations assoc-list new-body) (values (wrap-associations assoc-list new-body)
new-tmpcount))])) new-tmpcount))]))