[bug #66636] Unable to parse define-library with include-shared in non mit-scheme cond-expand path

[Retropikzel]

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

                 Summary: Unable to parse define-library with include-shared
in non mit-scheme cond-expand  path
                   Group: MIT/GNU Scheme
               Submitter: retropikzel
               Submitted: Fri 03 Jan 2025 02:58:20 PM UTC
                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: Fri 03 Jan 2025 02:58:20 PM UTC By: Retropikzel <retropikzel>
Given code:

(define-library
  (srfi 39)
  (cond-expand
    (chibi (import (chibi)))
    (racket (import (scheme base)))
    (stklos (import (except (scheme base) make-parameter parameterize)
                    (only (stklos) %find-macro-clause)))
    (else (import (except (scheme base) make-parameter parameterize))))
  (export make-parameter parameterize)
  (cond-expand
    (mit-scheme (include "39.scm"))
    (foment (include "39.scm"))
    (chibi (include-shared "39/param")
           (cond-expand
             (threads (include "39/syntax.scm"))
             (else (include "39/syntax-no-threads.scm"))))
    (racket (begin #t))
    (else (include "39.scm"))))

Mit-scheme errors with:

;Unable to parse define-library form: (define-library (srfi 39) (cond-expand
(chibi (import (chibi))) (racket (import (scheme base))) (stklos (import
(except ... make-parameter parameterize) (only ... %find-macro-clause))) (else
(import (except ... make-parameter parameterize)))) (export make-parameter
parameterize) (cond-expand (mit-scheme (include "39.scm")) (foment (include
"39.scm")) (chibi (include-shared "39/param") (cond-expand (threads ...) (else
...))) (racket (begin #t)) ...))
;To continue, call RESTART with an option number:
; (RESTART 1) => Return to read-eval-print level 1.

If I comment out (include-shared "39/param") then there is no error, but
obiously the library then does not work on Chibi.

Other R7RS Scheme implementations load the library fine.







    _______________________________________________________

Reply to this item at:

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

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

signature.asc
Description: PGP signature