Path: utzoo!attcan!utgpu!jarvis.csri.toronto.edu!mailrus!ames!apple!usc!ucsd!ucbvax!hplabs!hplabsb!kirshenb
From: kirshenb@hplabsb.HP.COM (Evan Kirshenbaum)
Newsgroups: comp.lang.misc
Subject: Re: What I'd really like to see in an if-statement...
Message-ID: <5411@hplabsb.HP.COM>
Date: 5 Sep 89 18:23:12 GMT
References: <13359@megaron.arizona.edu> <282@castle.ed.ac.uk> <89723@ti-csl.csc.ti.com> <5410@hplabsb.HP.COM>
Reply-To: kirshenb@hplabsb.UUCP (Evan Kirshenbaum)
Organization: Hewlett-Packard Labs, Palo Alto, CA
Lines: 21

In article <5410@hplabsb.HP.COM> kirshenb@hplabsb.UUCP (Evan Kirshenbaum) makes a boo-boo:
>In scheme, one should be able to do something of the form:
>
>(extend-syntax (order)
>  ((order) '#!true)

 should be:  ((order a) '#!true)

>  ((order a op b more ...)
>   (with ((temp (gensym)))
>     (let ((temp b))
>       (and (op a temp)
>            (order temp more ...))))))
>
Evan Kirshenbaum
    HP Laboratories
    3500 Deer Creek Road, Building 26U
    Palo Alto, CA  94304

    kirshenbaum@hplabs.hp.com
    (415)857-7572