diff options
| author | Mike Vink <mike1994vink@gmail.com> | 2023-05-04 21:05:31 +0200 |
|---|---|---|
| committer | Mike Vink <mike1994vink@gmail.com> | 2023-05-04 21:05:31 +0200 |
| commit | a3c770f64ce5ee5e2ee3ca2c41a94c111d35c3c2 (patch) | |
| tree | 69d62261f96f11ece423041aeb847f64d10ce76a /coding-exercises/2/78/install-complex-package.rkt | |
| parent | 3fdd0f8042574874a34999291e00cb550cf91e2d (diff) | |
bugs
Diffstat (limited to 'coding-exercises/2/78/install-complex-package.rkt')
| -rw-r--r-- | coding-exercises/2/78/install-complex-package.rkt | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/coding-exercises/2/78/install-complex-package.rkt b/coding-exercises/2/78/install-complex-package.rkt index a99b7d5..e332351 100644 --- a/coding-exercises/2/78/install-complex-package.rkt +++ b/coding-exercises/2/78/install-complex-package.rkt @@ -42,7 +42,7 @@ (and (= (real-part z1) (real-part z2)) (= (imag-part z1) (imag-part z2)))) (define (=zero? z) - (and (= (real-part z)) (= (imag-part z)))) + (and (= (real-part z) 0) (= (imag-part z) 0))) ;; interface (define (typetag z) (attach-tag 'complex z)) |