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
|
|
11 | 11 | (let* ((name2 (parse-library-name name loc)) |
12 | 12 | (sname2 (symbol->string name2))) |
13 | 13 | (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)) |
16 | 20 | (file-exists? (string-append sname2 ".import.so")) |
17 | 21 | (file-exists? (string-append sname2 ".import.scm"))))) |
18 | 22 | |