Re: Case independence and (case)

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

On Fri, 17 Apr 1998, Chris Maden wrote:

> (assoc) isn't part of dsssl-o, and Jade 1.1's documentation doesn't
> list it among the supported additional procedures.  Otherwise yes, it
> would be perfect for what I'm trying to do in this case.

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

My current collection is in a file I call ``standard.ent'', and is
available in my ps2java package.
<URL:http://undergrad.math.uwaterloo.ca/%7Erconnor/ps2java/>

HTH

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