Fixing everything for mandatory stack effects

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

diff --git a/extra/units/units.factor b/extra/units/units.factor
index 32baf9e7ed3e27612c3e33752dd354672abe8aaa..f7330c14327b795324c2d0d7ba199d24e7ebd311 100755 (executable)
--- a/extra/units/units.factor
+++ b/extra/units/units.factor
@@ -40,12 +40,12 @@ M: dimensions-not-equal summary drop "Dimensions do not match" ;
     [ dimensions 2array ] bi@ =
     [ dimensions-not-equal ] unless ;
 
-: 2values [ dimensioned-value ] bi@ ;
+: 2values ( dim dim -- val val ) [ dimensioned-value ] bi@ ;
 
-: <dimension-op
+: <dimension-op ( dim dim -- top bot val val )
     2dup check-dimensions dup dimensions 2swap 2values ;
 
-: dimension-op>
+: dimension-op> ( top bot val -- dim )
     -rot <dimensioned> ;
 
 : d+ ( d d -- d ) <dimension-op + dimension-op> ;