From 605efdf2f8020c73c08db3965246a89aa468b2a1 Mon Sep 17 00:00:00 2001 From: retropikzel Date: Thu, 17 Jul 2025 15:47:13 +0300 Subject: [PATCH] Support for Chicken 6 --- libs/data.sld | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/libs/data.sld b/libs/data.sld index ab781cd..b5e7901 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 (string-starts-with? library-file "srfi") + (let ((unit (string-append (if #f ;(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 (string-starts-with? library-file "srfi") + (out (string-append (if #f ;(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 (string-starts-with? library-file "srfi") + (static-out (string-append (if #f ;(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")))