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

Issue #273 - Avoid compiler warning

Browse source
This commit is contained in:
Justin Ethier 2021-07-19 19:45:34 -07:00
parent 7b96ff82af
commit a3e0d51021
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
scheme/cyclone/cgen.sld
View file

@ -1001,10 +1001,12 @@
;;(trace:info `(loop ,args ,(cadr args) ,cgen-lis ,parent-args)) ;;(trace:info `(loop ,args ,(cadr args) ,cgen-lis ,parent-args))
(c:code (c:code
(string-append (string-append
cgen-allocs ; (c:allocs->str (c:allocs cgen)) cgen-allocs
"\n" "\n"
cgen-body ; TODO: (c:body cgen) ; TODO: re-assign function args, longer-term using temp variables cgen-body
"\n" "\n"
;; Avoid unused var warning from C compiler
(mangle (cadr args)) " = " (mangle (cadr args)) ";"
"continue;")))) "continue;"))))
((eq? 'Cyc-foreign-code fun) ((eq? 'Cyc-foreign-code fun)