[scheme]なぜかバグるんだよなぁー。

どうして、これがバグちゃうんだろう～～～。

(define (element-of-set? x set) (cond ( (null? set) '()) ( (= x (car set)) #t) ( (< x (car set)) '()) (else (element-of-set? x (cdr set))) ) )

まいったなぁー。。。 orz