Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-15 16:57:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Do not reassign the same var to itself

Browse source
This commit is contained in:
Justin Ethier 2019-12-23 16:26:07 -05:00
parent 5b3f5d34e1
commit 3d60211e67
1 changed files with 7 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
scheme/cyclone/cgen.sld
View file

@ -970,11 +970,13 @@
string-append string-append
(map (map
(lambda (arg body-exp) (lambda (arg body-exp)
(string-append (if (equal? (mangle arg) (c:body body-exp))
(mangle arg) "" ;; Do nothing
" = " (string-append
(c:body body-exp) (mangle arg)
";")) " = "
(c:body body-exp)
";")))
parent-args parent-args
cgen-lis)))) cgen-lis))))
;;(trace:info `(loop ,args ,(cadr args) ,cgen-lis ,parent-args)) ;;(trace:info `(loop ,args ,(cadr args) ,cgen-lis ,parent-args))