Hi,

Stefan Israelsson Tampe <stefan.ita...@gmail.com> skribis:

>   (define (c-equal-1 x y)
>     (match x
>       (((and xx (_ . _)) . _)

[...]

>       ((xx . _)

[...]

>       (_ (equal? x y))))

Doesn’t this mean that ‘cycle-equal?’ falls back to ‘equal?’ for
non-pairs?

Ludo’.

Reply via email to