Return value from (exit)

This commit is contained in:
Justin Ethier 2015-06-30 22:34:11 -04:00
parent 1cc957a6d8
commit cd3917e80e

View file

@ -220,7 +220,7 @@
(if (not *do-code-gen*)
(begin
(trace:error "DEBUG, existing program")
(exit)))
(exit 0)))
(trace:info "---------------- C code:")
(mta:code-gen input-program