Re: Bug fix for Ashwin's CASE

[Charles Martin <martin@YALE.ARPA>]

Minor programming style point.  Instead of doing things like

    (define-syntax (case pred key . clauses)
      (let ((comparator '%%%%casefun%%%%))
        ... ))

I've always preferred constructions such as

    (define-syntax (case pred key . clauses)
      (let ((comparator (generate-symbol 'CASE-FUN)))
        ... ))

(Personally, "%%%%CASEFUN%%%%" is one of my favorite temporary
variable names, so my code would break with your version... :-)
-------