From da34379a8307d0b0152d6c2bec946dd9777a93f6 Mon Sep 17 00:00:00 2001
From: retropikzel <retropikzel@iki.fi>
Date: Sat, 19 Jul 2025 18:51:05 +0300
Subject: [PATCH] Bring things to new compile-r7rs

---
 Jenkinsfile   |  2 +-
 Makefile      |  5 +----
 foreign/c.sld | 24 ++++++++++--------------
 3 files changed, 12 insertions(+), 19 deletions(-)

diff --git a/Jenkinsfile b/Jenkinsfile
index e2bcc1a..5ed5d08 100644
--- a/Jenkinsfile
+++ b/Jenkinsfile
@@ -20,7 +20,7 @@ pipeline {
                                 stage("${implementation} install") {
                                     catchError(buildResult: 'SUCCESS', stageResult: 'FAILURE') {
 					if("${implementation}" == "chicken") {
-						DOCKERIMG="${implementation}:5"
+						DOCKERIMG="chicken:5"
 					} else {
 						DOCKERIMG="${implementation}:head"
 					}
diff --git a/Makefile b/Makefile
index fcfcfce..ed6f73e 100644
--- a/Makefile
+++ b/Makefile
@@ -7,15 +7,12 @@ TEST=primitives
 SCHEME=chibi
 TMPDIR=tmp/${SCHEME}
 DOCKERIMG=${SCHEME}:head
-ifeq "${SCHEME}" "chicken"
+ifeq "${SCHEME}" "chicken:5"
 DOCKERIMG=${SCHEME}
 endif
 
 all: build ${TMPDIR}
 
-docker-image:
-	echo ${DOCKERIMG}
-
 build:
 	snow-chibi package \
 		--version=${VERSION} \
diff --git a/foreign/c.sld b/foreign/c.sld
index 08d796d..77520b8 100644
--- a/foreign/c.sld
+++ b/foreign/c.sld
@@ -294,17 +294,13 @@
           ;define-c-variable (?)
           )
   (cond-expand
-    (chicken-6 (include-relative "c/internal.scm"))
+    (chicken (include-relative "c/internal.scm"))
     (else (include "c/internal.scm")))
   (cond-expand
     (chibi (include "c/primitives/chibi.scm"))
-    (chicken-5 (export foreign-declare
-                       foreign-safe-lambda
-                       void)
-               (include "c/primitives/chicken.scm"))
-    (chicken-6 (export foreign-declare
-                       foreign-safe-lambda
-                       void)
+    (chicken (export foreign-declare
+                     foreign-safe-lambda
+                     void)
       (include-relative "c/primitives/chicken.scm"))
     ;(cyclone (include "c/primitives/cyclone.scm"))
     (gambit (include "c/primitives/gambit.scm"))
@@ -322,12 +318,12 @@
     (ypsilon (export c-function c-callback)
              (include "c/primitives/ypsilon.scm")))
   (cond-expand
-    (chicken-6 (include-relative "c/main.scm")
-               (include-relative "c/libc.scm")
-               (include-relative "c/c-bytevectors.scm")
-               (include-relative "c/pointer.scm")
-               ;(include-relative "c/array.scm")
-               ;(include-relative "c/struct.scm")
+    (chicken (include-relative "c/main.scm")
+             (include-relative "c/libc.scm")
+             (include-relative "c/c-bytevectors.scm")
+             (include-relative "c/pointer.scm")
+             ;(include-relative "c/array.scm")
+             ;(include-relative "c/struct.scm")
                )
     (else (include "c/main.scm")
           (include "c/libc.scm")