diff options
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)) |