From 8b9c2a3e3eb1f7dd30fcf69e22cc6b36c74ce437 Mon Sep 17 00:00:00 2001 From: retropikzel Date: Thu, 17 Jul 2025 19:35:51 +0300 Subject: [PATCH] Fixing Chicken --- libs/data.sld | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/libs/data.sld b/libs/data.sld index 6d9c09d..93e78df 100644 --- a/libs/data.sld +++ b/libs/data.sld @@ -45,14 +45,14 @@ (chicken (type . compiler) (library-command . ,(lambda (library-file prepend-directories append-directories r6rs?) - (let ((unit (string-append (if #f ;(string-starts-with? library-file "srfi") + (let ((unit (string-append (if (string-starts-with? library-file "srfi") (string-replace (string-cut-from-end library-file 4) #\/ #\-) (string-replace (string-cut-from-end library-file 4) #\/ #\.)))) - (out (string-append (if #f ;(string-starts-with? library-file "srfi") + (out (string-append (if (string-starts-with? library-file "srfi") (string-replace (string-cut-from-end library-file 4) #\/ #\-) (string-replace (string-cut-from-end library-file 4) #\/ #\.)) ".o")) - (static-out (string-append (if #f ;(string-starts-with? library-file "srfi") + (static-out (string-append (if (string-starts-with? library-file "srfi") (string-replace (string-cut-from-end library-file 4) #\/ #\-) (string-replace (string-cut-from-end library-file 4) #\/ #\.)) ".a")))