Ticket #1697: 0001-Omit-C4-specific-module-check.patch

File 0001-Omit-C4-specific-module-check.patch, 1011 bytes (added by Vasilij Schneidermann, 19 months ago)
  • r7rs/1.0.1/r7rs-compile-time.scm

    From 834b14f165f07bd7a9e11dfcc6268bd47a8f2be6 Mon Sep 17 00:00:00 2001
    From: Vasilij Schneidermann <mail@vasilij.de>
    Date: Mon, 15 Jun 2020 21:52:44 +0200
    Subject: [PATCH] Omit C4-specific module check
    
    ---
     r7rs/1.0.1/r7rs-compile-time.scm | 8 ++++++--
     1 file changed, 6 insertions(+), 2 deletions(-)
    
    diff --git a/r7rs/1.0.1/r7rs-compile-time.scm b/r7rs/1.0.1/r7rs-compile-time.scm
    index 4bc2fe3..2d90dec 100644
    a b  
    1111  (let* ((name2 (parse-library-name name loc))
    1212         (sname2 (symbol->string name2)))
    1313    (or (##sys#find-module name2 #f)
    14         (memq name2 ##sys#core-library-modules)
    15         (memq name2 ##sys#core-syntax-modules)
     14        (cond-expand
     15         (chicken-4
     16          (or
     17           (memq name2 ##sys#core-library-modules)
     18           (memq name2 ##sys#core-syntax-modules)))
     19         (else #f))
    1620        (file-exists? (string-append sname2 ".import.so"))
    1721        (file-exists? (string-append sname2 ".import.scm")))))
    1822