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

[factor.git] / extra / units / units.factor

diff --git a/extra/units/units.factor b/extra/units/units.factor
index 51ada98c935ee1f0e62da1ef7e5bacbc7f012a4d..6bc2242074c836cbbeb071f8204f3e9750d266cf 100644 (file)
--- a/extra/units/units.factor
+++ b/extra/units/units.factor
@@ -34,7 +34,7 @@ M: dimensions-not-equal summary drop "Dimensions do not match" ;
 
 : check-dimensions ( d d -- )
     [ dimensions 2array ] same?
-    [ throw-dimensions-not-equal ] unless ;
+    [ dimensions-not-equal ] unless ;
 
 : 2values ( dim dim -- val val ) [ value>> ] bi@ ;