Fixed radians and steradians to be unitless

diff --git a/extra/units/si/si.factor b/extra/units/si/si.factor
index c07ffb8423139d3798c19cd3db5c34b8ded3636f..9029d6bd3532b1a928725bede7fbd717e1777f94 100644 (file)
--- a/extra/units/si/si.factor
+++ b/extra/units/si/si.factor
@@ -38,8 +38,11 @@ IN: units.si
 : cd/m^2 { cd } { m m } <dimensioned> ;
 : kg/kg { kg } { kg } <dimensioned> ;
 
-: radians ( n -- radian ) { m } { m } <dimensioned> ;
-: sr ( n -- steradian ) { m m } { m m } <dimensioned> ;
+! Radians are really m/m, and steradians are m^2/m^2
+! but they need to be in reduced form here.
+: radians ( n -- radian ) scalar ;
+: sr ( n -- steradian ) scalar ;
+
 : Hz ( n -- hertz ) { } { s } <dimensioned> ;
 : N ( n -- newton ) { kg m } { s s } <dimensioned> ;
 : Pa ( n -- pascal ) { kg } { m s s } <dimensioned> ;