From 148b853ffa8013e3d2e9f8af0f3b8e774a19c107 Mon Sep 17 00:00:00 2001
From: retropikzel <retropikzel@iki.fi>
Date: Sun, 22 Mar 2026 08:07:04 +0200
Subject: [PATCH] Se a.out to be default output file

---
 compile-r7rs | 6 ------
 1 file changed, 6 deletions(-)

diff --git a/compile-r7rs b/compile-r7rs
index d5f8908..b153ae5 100644
--- a/compile-r7rs
+++ b/compile-r7rs
@@ -52,12 +52,6 @@ append_dirs="${append_dirs#:}"
 prepend_dirs="${prepend_dirs#,}"
 append_dirs="${append_dirs#,}"
 
-case ${input_file:-} in
-    *.sps) output_file="${input_file%.sps}";;
-    *.scm) output_file="${input_file%.scm}";;
-    *) echo "Error, invalid input file"; exit 1;;
-esac
-
 prefix="#!/usr/bin/env -S"
 case $rnrs in
     R6RS)