1 665c255d 2023-08-04 jrmu (define (equal? p1 p2)
2 665c255d 2023-08-04 jrmu   (cond ((and (null? p1) (null? p2)) #t)
3 665c255d 2023-08-04 jrmu 	((or (null? p1) (null? p2)) #f)
4 665c255d 2023-08-04 jrmu 	((and (pair? p1) (pair? p2))
5 665c255d 2023-08-04 jrmu 	 (and (equal? (car p1) (car p2))
6 665c255d 2023-08-04 jrmu 	      (equal? (cdr p1) (cdr p2))))
7 665c255d 2023-08-04 jrmu 	((or (pair? p1) (pair? p2)) #f)
8 665c255d 2023-08-04 jrmu 	(else (eq? p1 p2))))