change ERROR: words from throw-foo back to foo.

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

diff --git a/core/kernel/kernel.factor b/core/kernel/kernel.factor
index 09d2f69bad7f3a0b5b4cdc77c93619a11e532c25..49a227b76f887c166d3b9e99ce4dde0a00e846a3 100644 (file)
--- a/core/kernel/kernel.factor
+++ b/core/kernel/kernel.factor
@@ -304,7 +304,7 @@ GENERIC: throw ( error -- * )
 
 ERROR: assert got expect ;
 
-: assert= ( a b -- ) 2dup = [ 2drop ] [ throw-assert ] if ;
+: assert= ( a b -- ) 2dup = [ 2drop ] [ assert ] if ;
 
 <PRIVATE