From 60f912bfbb8362db606a886a2575b094095f4da4 Mon Sep 17 00:00:00 2001
From: retropikzel <retropikzel@iki.fi>
Date: Fri, 11 Oct 2024 08:43:26 +0300
Subject: [PATCH] Make the scheme scripts executables to protect them from Guix
 reading them

---
 Makefile                                      | 4 ++--
 build.r7rs-scm => build-repo                  | 2 ++
 get-package-urls.r7rs-scm => get-package-urls | 2 ++
 3 files changed, 6 insertions(+), 2 deletions(-)
 rename build.r7rs-scm => build-repo (99%)
 mode change 100644 => 100755
 rename get-package-urls.r7rs-scm => get-package-urls (94%)
 mode change 100644 => 100755

diff --git a/Makefile b/Makefile
index 60014af..d8e0895 100644
--- a/Makefile
+++ b/Makefile
@@ -2,10 +2,10 @@ TMPDIR=/tmp/snow-fort-guix-channel
 
 build: repo.scm
 	mkdir -p ${TMPDIR}/hashes
-	gosh -r7 get-package-urls.r7rs-scm > ${TMPDIR}/package-urls.txt
+	./get-package-urls > ${TMPDIR}/package-urls.txt
 	sh ensure-hashes.sh ${TMPDIR}/hashes ${TMPDIR}/package-urls.txt
 	mkdir -p packages
-	gosh -r7 build.r7r-scm ${TMPDIR}
+	./build-repo ${TMPDIR}
 
 repo.scm:
 	wget https://snow-fort.org/s/repo.scm
diff --git a/build.r7rs-scm b/build-repo
old mode 100644
new mode 100755
similarity index 99%
rename from build.r7rs-scm
rename to build-repo
index 78aeb16..0134c26
--- a/build.r7rs-scm
+++ b/build-repo
@@ -1,3 +1,5 @@
+#!/usr/bin/env -S gosh -r7
+
 (import (scheme base)
         (scheme read)
         (scheme write)
diff --git a/get-package-urls.r7rs-scm b/get-package-urls
old mode 100644
new mode 100755
similarity index 94%
rename from get-package-urls.r7rs-scm
rename to get-package-urls
index a5bd12c..17e8fa9
--- a/get-package-urls.r7rs-scm
+++ b/get-package-urls
@@ -1,3 +1,5 @@
+#!/usr/bin/env -S gosh -r7
+
 (import (scheme base)
         (scheme read)
         (scheme write)