system: make exit have ( n -- ) stack effect

diff --git a/core/system/system.factor b/core/system/system.factor
index 30089f18d4f2b82be3223a34448aa1e4897f993d..765f7946c59e254698e917d42543fdf4543b4249 100644 (file)
--- a/core/system/system.factor
+++ b/core/system/system.factor
@@ -82,7 +82,7 @@ PRIVATE>
         vm-compiler % "] on " % os name>> %
     ] "" make ;
 
-: exit ( n -- * )
-    [ do-shutdown-hooks (exit) ] ignore-errors
+: exit ( n -- )
+    '[ do-shutdown-hooks _ (exit) ] ignore-errors
     [ "Unexpected error during shutdown!" print flush ] ignore-errors
     255 (exit) ;