basis: ERROR: changes.

[factor.git] / basis / typed / typed.factor

diff --git a/basis/typed/typed.factor b/basis/typed/typed.factor
index 4a14e5d3b72e263ce92d5e7aebb424853d6f66aa..c8357136060ddc519e50968902cf5923b02d95ca 100644 (file)
--- a/basis/typed/typed.factor
+++ b/basis/typed/typed.factor
@@ -69,14 +69,14 @@ PREDICATE: typed-word < word "typed-word" word-prop >boolean ;
 :: typed-inputs ( quot word types -- quot' )
     types unboxed-types :> unboxed-types
 
-    [ input-mismatch-error ] word types make-unboxer
+    [ throw-input-mismatch-error ] word types make-unboxer
     unboxed-types quot '[ _ declare @ ]
     compose ;
 
 ! typed outputs
 
 :: typed-outputs ( quot word types -- quot' )
-    [ output-mismatch-error ] word types make-unboxer
+    [ throw-output-mismatch-error ] word types make-unboxer
     quot prepose ;
 
 DEFER: make-boxer
@@ -143,7 +143,7 @@ MACRO: typed ( quot word effect -- quot' )
     dup {
         [ effect-in-types typed-stack-effect? ]
         [ effect-out-types typed-stack-effect? ]
-    } 1|| [ (typed-def) ] [ nip no-types-specified ] if ;
+    } 1|| [ (typed-def) ] [ nip throw-no-types-specified ] if ;
 
 M: typed-word subwords
     [ call-next-method ]