Create basis vocab root

[factor.git] / core / kernel / kernel.factor

diff --git a/core/kernel/kernel.factor b/core/kernel/kernel.factor
index e8d3de4b11516fbff49d7a8d57d35db31433c77b..47e0d76bf71f7b38ce81bd774c560a249b76101d 100755 (executable)
--- a/core/kernel/kernel.factor
+++ b/core/kernel/kernel.factor
@@ -186,6 +186,10 @@ GENERIC: boa ( ... class -- tuple )
 ! throw errors before continuations are loaded
 : throw ( error -- * ) 5 getenv [ die ] or 1 (throw) ;
 
+ERROR: assert got expect ;
+
+: assert= ( a b -- ) 2dup = [ 2drop ] [ assert ] if ;
+
 <PRIVATE
 
 : hi-tag ( obj -- n ) 0 slot ; inline