fix another bug with negative case

2 files changed, 1 insertions, 7 deletions

diff --git a/coding-exercises/2/83/install-complex.rkt b/coding-exercises/2/83/install-complex.rkt
index e3dfe52..df46817 100644
--- a/coding-exercises/2/83/install-complex.rkt
+++ b/coding-exercises/2/83/install-complex.rkt
@@ -153,12 +153,6 @@
     (make-from-mag-ang (mul (magnitude z1) (magnitude z2))
                        (add (angle z1) (angle z2))))
   (define (div-complex z1 z2)
-    (newline)
-    (display "DIV-COMPLEX")
-    (newline)
-    (display (list z1 z2))
-    (newline)
-    (display (list (magnitude z1) (magnitude z2)))
     (make-from-mag-ang (div (magnitude z1) (magnitude z2))
                        (sub (angle z1) (angle z2))))
 
diff --git a/coding-exercises/2/83/install-real.rkt b/coding-exercises/2/83/install-real.rkt
index 356ac92..45b1a6c 100644
--- a/coding-exercises/2/83/install-real.rkt
+++ b/coding-exercises/2/83/install-real.rkt
@@ -9,7 +9,7 @@
     (attach-tag 'real datum))
   (define (make i)
     (let ((n (exact->inexact i)))
-      (if (< n threshold)
+      (if (< (abs n) threshold)
         0.0
         n)))
   (define (raiseme r)