| … | |
… | |
| 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))) |
