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

mrjbq7 · Sep 1, 2023 · 3c441d3 · 3c441d3
1 parent 60d5065
commit 3c441d3
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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) ;