From a3c770f64ce5ee5e2ee3ca2c41a94c111d35c3c2 Mon Sep 17 00:00:00 2001 From: Mike Vink Date: Thu, 4 May 2023 21:05:31 +0200 Subject: bugs --- coding-exercises/2/78/install-complex-package.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'coding-exercises/2/78') 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)) -- cgit v1.2.3