From e2d21073960f4e761c3256471628d5a37f31409c Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Tue, 1 Nov 2016 17:16:11 -0700
Subject: [PATCH] system: adding new primitives.

---
 core/system/system.factor | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/core/system/system.factor b/core/system/system.factor
index 7ef646a042..99628b2b69 100644
--- 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 ;