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

db4
Doug Coleman 2013-03-24 09:42:22 -07:00
parent c8e4fc08e9
commit b5d7399060
1 changed files with 1 additions and 4 deletions

View File

@ -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" ;