Making `exit` r7rs compliant, adding `emergency-exit`