[bug #65212] syntax-rules error

[anonymous]

URL:
  <https://savannah.gnu.org/bugs/?65212>

                 Summary: syntax-rules error
                   Group: MIT/GNU Scheme
               Submitter: None
               Submitted: Fri 26 Jan 2024 04:28:13 AM UTC
                Category: None
                Severity: 3 - Normal
                Priority: 5 - Normal
              Item Group: Incorrect behavior
                  Status: None
                 Privacy: Public
             Assigned to: None
         Originator Name: Andrew Pochinsky
        Originator Email: avp@mit.edu
             Open/Closed: Open
         Discussion Lock: Any
                Keywords: 


    _______________________________________________________

Follow-up Comments:


-------------------------------------------------------
Date: Fri 26 Jan 2024 04:28:13 AM UTC By: Anonymous
The following code

(define foo 'outer-foo)
(define-syntax bar
  (syntax-rules ()
    ((_ name val) (begin
                    (define foo (list 'inner val))
                    (define name (lambda () foo))))))

(bar baz 2)
(display (list foo (baz)))
(newline)

results in error instead of printing

(outer-foo (inner 2))

as required by R7RS.








    _______________________________________________________

Reply to this item at:

  <https://savannah.gnu.org/bugs/?65212>

_______________________________________________
Message sent via Savannah
https://savannah.gnu.org/