[bug #64799] Messages about free references in libraries include extra identifiers

[Arthur A. Gleckler]

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

                 Summary: Messages about free references in libraries include
extra identifiers
                   Group: MIT/GNU Scheme
               Submitter: aag
               Submitted: Thu 19 Oct 2023 10:35:46 PM PDT
                Category: None
                Severity: 3 - Normal
                Priority: 5 - Normal
              Item Group: None
                  Status: None
                 Privacy: Public
             Assigned to: None
         Originator Name: 
        Originator Email: 
             Open/Closed: Open
         Discussion Lock: Any
                Keywords: 


    _______________________________________________________

Follow-up Comments:


-------------------------------------------------------
Date: Thu 19 Oct 2023 10:35:46 PM PDT By: Arthur A. Gleckler <aag>
Compiling a library that includes the syntax definition below results in a
"has free references not provided by imports:" that includes many extraneous
identifiers.


(define-syntax define-test-group
  (syntax-rules ()
    ((_ test-group-name
        test-procedure
        row ...)
     (let ((procedure test-procedure))
       (install-test-group! 'test-group-name
                            (list
                             (make-unit-test
                              (append 'test-group-name row)
                              (lambda () (apply procedure row)))
                             ...))))))


Here's the message:


Library (unit-test) has free references not provided by imports: (row
test-group-name test-procedure procedure expression test-name)


Note that the macro's arguments and its local bindings are included, which is
probably not the intent.







    _______________________________________________________

Reply to this item at:

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

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