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

This reverts commit 3c441d38b59cba7c24ac68bc9f8f4da971301f27.

diff --git a/core/system/system.factor b/core/system/system.factor
index 765f7946c59e254698e917d42543fdf4543b4249..30089f18d4f2b82be3223a34448aa1e4897f993d 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) ;