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*) (if (not *do-code-gen*)
(begin (begin
(trace:error "DEBUG, existing program") (trace:error "DEBUG, existing program")
(exit))) (exit 0)))
(trace:info "---------------- C code:") (trace:info "---------------- C code:")
(mta:code-gen input-program (mta:code-gen input-program