… | |
… | |
459 | (define (symbol=? hd . tl) |
459 | (define (symbol=? hd . tl) |
460 | (if (null? tl) |
460 | (if (null? tl) |
461 | #t |
461 | #t |
462 | (and (symbol? hd) (eq? hd (car tl)) (symbol=? (cdr tl))))) |
462 | (and (symbol? hd) (eq? hd (car tl)) (symbol=? (cdr tl))))) |
463 | |
463 | |
|
|
464 | (define (boolean=? hd . tl) |
|
|
465 | (if (null? tl) |
|
|
466 | #t |
|
|
467 | (and (boolean? hd) (eq? hd (car tl)) (boolean=? (cdr tl))))) |
|
|
468 | |
464 | ;;;;; atom? and equal? written by a.k |
469 | ;;;;; atom? and equal? written by a.k |
465 | |
470 | |
466 | ;;;; atom? |
471 | ;;;; atom? |
467 | (define (atom? x) |
472 | (define (atom? x) |
468 | (not (pair? x))) |
473 | (not (pair? x))) |