X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fwin32-os.c;h=3d27f7847d081f641cbe0267e3accfb7937f8705;hb=6d9e2243954872457115bbb9ac1ecb1d161acced;hp=80a6ed2b1a53a03c722e121abb79bb35fb374d19;hpb=9e58342e3ebb8bbaaa648cd345232b08279f3a0c;p=sbcl.git

diff --git a/src/runtime/win32-os.c b/src/runtime/win32-os.c
index 80a6ed2..3d27f78 100644
--- a/src/runtime/win32-os.c
+++ b/src/runtime/win32-os.c
@@ -604,6 +604,7 @@ void scratch(void)
       SetCurrentDirectoryW(0);
       SetEnvironmentVariableW(0, 0);
     #endif
+    _exit(0);
 }
 
 char *