core: Add equal2?.
[mes.git] / module / mes / base.mes
index f3df2169cf01bf7645c452ca00fb32640bf76f26..789351b1c798bec7f04285c343215d06bf457e96 100644 (file)
 (define (and=> value procedure) (and value (procedure value)))
 (define eqv? eq?)
 
-(define (equal2? a b)
-  (if (and (null? a) (null? b)) #t
-      (if (and (pair? a) (pair? b))
-          (and (equal2? (car a) (car b))
-               (equal2? (cdr a) (cdr b)))
-          (if (and (string? a) (string? b))
-              (eq? (string->symbol a) (string->symbol b))
-              (if (and (vector? a) (vector? b))
-                  (equal2? (vector->list a) (vector->list b))
-                  (eq? a b))))))
-
 (define (equal? . x)
   (if (or (null? x) (null? (cdr x))) #t
       (if (null? (cddr x)) (equal2? (car x) (cadr x))