Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!usc!snorkelwacker!ai-lab!zurich.ai.mit.edu!markf From: markf@zurich.ai.mit.edu (Mark Friedman) Newsgroups: comp.lang.scheme Subject: Re: Scheme is unnecessarily biased towards lists Message-ID: Date: 21 Sep 90 15:52:55 GMT References: <9009200822.AA02949@vis.> Sender: news@ai.mit.edu Reply-To: markf@zurich.ai.mit.edu Organization: M.I.T. Artificial Intelligence Lab. Lines: 24 In-reply-to: markf@zurich.ai.mit.edu's message of 20 Sep 90 14:56:27 GMT As Thomas Breuel corrected me, my example for generic dispatch of (set! + (lambda addends (if (my-new-numeric-types? addends) (apply my-new-numeric-type+ addends) (apply + addends)))) ought to have been: (let ((old-+ +)) (set! + (lambda addends (if (my-new-numeric-types? addends) (apply my-new-numeric-type+ addends) (apply old-+ addends))))) -Mark -- Mark Friedman MIT Artificial Intelligence Lab 545 Technology Sq. Cambridge, Ma. 02139 markf@zurich.ai.mit.edu