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

File 0001-Omit-C4-specific-module-check.patch, 1011 bytes (added by Vasilij Schneidermann, 4 years 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