units: Use ERROR: for dimensions-not-equal.

diff --git a/extra/units/units.factor b/extra/units/units.factor
index 90eea34215aa287f4902d30e7e9a5b57f73134bb..6bc2242074c836cbbeb071f8204f3e9750d266cf 100644 (file)
--- a/extra/units/units.factor
+++ b/extra/units/units.factor
@@ -5,10 +5,7 @@ IN: units
 
 TUPLE: dimensioned value top bot ;
 
-TUPLE: dimensions-not-equal ;
-
-: dimensions-not-equal ( -- * )
-    \ dimensions-not-equal new throw ;
+ERROR: dimensions-not-equal ;
 
 M: dimensions-not-equal summary drop "Dimensions do not match" ;