From 33fecfef7d547ff7819325fab00a1e2d808dd69e Mon Sep 17 00:00:00 2001
From: Daniel Ehrenberg <littledan@Macintosh-24.local>
Date: Thu, 29 Nov 2007 12:19:57 -0500
Subject: [PATCH] Fixed radians and steradians to be unitless

---
 extra/units/si/si.factor | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/extra/units/si/si.factor b/extra/units/si/si.factor
index c07ffb8423..9029d6bd35 100644
--- 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> ;