[Bug-kawa] [bugs #10561] define-syntax and case generate bad code

[Chris Dean]

This mail is an automated notification from the bugs tracker
 of the project: Kawa.




/**************************************************************************/
[bugs #10561] Full Item Snapshot:

URL: <http://savannah.gnu.org/bugs/?func=detailitem&item_id=10561>
Project: Kawa
Submitted by: Chris Dean
On: Sun 10/03/2004 at 03:03

Category:  Scheme language
Severity:  5 - Average
Item Group:  Unexpected result
Resolution:  None
Privacy:  Public
Assigned to:  None
Status:  Open


Summary:  define-syntax and case generate bad code

Original Submission:  Both (foo) and (bar) below should return the same result, 
but
(foo) returns the wrong result due to improper macro expansion.



(define-syntax log-mode
  (syntax-rules ()
    ((log-mode mode)
     (case 'mode
       ((error) "error mode")
       ((warning) "warning mode")
       (else "bad mode")))))

(define (foo)
  (log-mode warning))

(define (bar)
  (case 'warning
    ((error) "error mode")
    ((warning) "warning mode")
    (else "bad mode")))














For detailed info, follow this link:
<http://savannah.gnu.org/bugs/?func=detailitem&item_id=10561>

_______________________________________________
  Message sent via/by Savannah
  http://savannah.gnu.org/