Re: Case independence and (case)

Subject: Re: Case independence and (case)
From: "Russell Steven Shawn O'Connor" <roconnor@xxxxxxxxxxxxxxxxxxxxxxxxx>
Date: Sat, 18 Apr 1998 12:39:51 -0400 (EDT)
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


Current Thread
  • RE: Case independence and (case), (continued)
    • Reynolds, Gregg - from mail1.ability.netby web4-1.ability.net (8.8.5/8.6.12) with ESMTP id QAA02506Fri, 17 Apr 1998 16:59:50 -0400 (EDT)
      • Chris Maden - from mail1.ability.netby web4-1.ability.net (8.8.5/8.6.12) with ESMTP id RAA02755Fri, 17 Apr 1998 17:11:13 -0400 (EDT)
        • Russell Steven Shawn O'Connor - from mail1.ability.netby web4-1.ability.net (8.8.5/8.6.12) with ESMTP id TAA04352Fri, 17 Apr 1998 19:16:48 -0400 (EDT)
        • Tony Graham - from mail1.ability.netby web4-1.ability.net (8.8.5/8.6.12) with ESMTP id WAA06429Fri, 17 Apr 1998 22:43:23 -0400 (EDT)
        • Russell Steven Shawn O'Connor - from mail1.ability.netby web4-1.ability.net (8.8.5/8.6.12) with ESMTP id MAA18706Sat, 18 Apr 1998 12:44:17 -0400 (EDT) <=
        • Norman Walsh - from mail1.ability.netby web4-1.ability.net (8.8.5/8.6.12) with ESMTP id UAA13060Thu, 23 Apr 1998 20:51:52 -0400 (EDT)