diff --git a/scheme/cyclone/cgen.sld b/scheme/cyclone/cgen.sld index 7c408971..cfc7613a 100644 --- a/scheme/cyclone/cgen.sld +++ b/scheme/cyclone/cgen.sld @@ -970,11 +970,13 @@ string-append (map (lambda (arg body-exp) - (string-append - (mangle arg) - " = " - (c:body body-exp) - ";")) + (if (equal? (mangle arg) (c:body body-exp)) + "" ;; Do nothing + (string-append + (mangle arg) + " = " + (c:body body-exp) + ";"))) parent-args cgen-lis)))) ;;(trace:info `(loop ,args ,(cadr args) ,cgen-lis ,parent-args))