added extra abs to new unit-equal comparison

iraikov · Feb 22, 2016 · c31de6d · c31de6d
1 parent a1a6f42
commit c31de6d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/unitconv.scm b/unitconv.scm
@@ -447,7 +447,7 @@
 (define (unit-equal? x y)
   (and (= (quantity-int (unit-dims x)) 
 	  (quantity-int (unit-dims y)))
-       (< (- (unit-factor x) (unit-factor y)) 1e-16)))
+       (< (abs (- (unit-factor x) (unit-factor y))) 1e-16)))
 
 
 (define (unitless? u)