Re: Case independence and (case)

["Russell Steven Shawn O'Connor" <roconnor@xxxxxxxxxxxxxxxxxxxxxxxxx>]

At 17 Apr 1998 19:12 -0400, Russell Steven Shawn O'Connor wrote:
> Everytime I find that Jade doesn't support a function in the standard
> that I want to use, I write my own:
> 
> (define (assoc elm lst)
>         (cond ((null? lst) #f)
>               ((equal? elm (caar lst)) (car lst))
>               (#t (assoc elm (cdr lst)))
>         )
> )

I guess I need to add

(define (caar lst) (car (car lst)))

-- 
Russell O'Connor                           roconnor@xxxxxxxxxxxx
    <URL:http://www.undergrad.math.uwaterloo.ca/%7Eroconnor/>
"And truth irreversibly destroys the meaning of its own message"
-- Anindita Dutta, "The Paradox of Truth, the Truth of Entropy"


 DSSSList info and archive:  http://www.mulberrytech.com/dsssl/dssslist