system: adding new primitives.

diff --git a/core/system/system.factor b/core/system/system.factor
index 7ef646a0423ce53b83b8cf56062a9ca8847e4736..99628b2b69d14855465f45adcccd318322378757 100644 (file)
--- a/core/system/system.factor
+++ b/core/system/system.factor
@@ -5,6 +5,8 @@ math math.parser namespaces sequences ;
 IN: system
 
 PRIMITIVE: (exit) ( n -- * )
+PRIMITIVE: disable-ctrl-break ( -- )
+PRIMITIVE: enable-ctrl-break ( -- )
 PRIMITIVE: nano-count ( -- ns )
 
 SINGLETONS: x86.32 x86.64 arm ppc.32 ppc.64 ;