From unknown Mon Aug 18 19:35:14 2025 X-Loop: help-debbugs@gnu.org Subject: bug#78831: [PATCH 1/2] language/bf: rewire compiling to scheme Resent-From: Paul Bolle Original-Sender: "Debbugs-submit" Resent-CC: bug-guile@gnu.org Resent-Date: Wed, 18 Jun 2025 21:42:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 78831 X-GNU-PR-Package: guile X-GNU-PR-Keywords: patch To: 78831@debbugs.gnu.org Cc: Paul Bolle X-Debbugs-Original-To: bug-guile@gnu.org Received: via spool by submit@debbugs.gnu.org id=B.175028289323316 (code B ref -1); Wed, 18 Jun 2025 21:42:02 +0000 Received: (at submit) by debbugs.gnu.org; 18 Jun 2025 21:41:33 +0000 Received: from localhost ([127.0.0.1]:57222 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1uS0XD-00063q-Od for submit@debbugs.gnu.org; Wed, 18 Jun 2025 17:41:32 -0400 Received: from lists.gnu.org ([2001:470:142::17]:46722) by debbugs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.84_2) (envelope-from ) id 1uRyV7-0000ab-0X for submit@debbugs.gnu.org; Wed, 18 Jun 2025 15:31:15 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1uRyV0-0005vK-7h for bug-guile@gnu.org; Wed, 18 Jun 2025 15:31:06 -0400 Received: from ewsoutbound.kpnmail.nl ([195.121.94.167]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1uRyUv-0007yS-F7 for bug-guile@gnu.org; Wed, 18 Jun 2025 15:31:05 -0400 X-KPN-MessageId: f105e163-4c7a-11f0-b9a4-005056abbe64 Received: from smtp.kpnmail.nl (unknown [10.31.155.39]) by ewsoutbound.so.kpn.org (Halon) with ESMTPS id f105e163-4c7a-11f0-b9a4-005056abbe64; Wed, 18 Jun 2025 21:32:16 +0200 (CEST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=tiscali.nl; s=tiscali01; h=content-type:mime-version:message-id:date:subject:to:from; bh=1ZkqmIaiyx17QhejEt/2YGjCxteCMt8n6ZRDFyzBVLY=; b=udZnlu9YnwoV3nu2HGTYHEz4a6yWsl5RdEQ+CJQ8Jily+nrrBci5Zo5Afu5ELnHeC1+4syv9G1MB1 xtQUE6i1iAAshHjBs4EesEz/uzYxddCB5iXGZOA4q/vJrrdFudveFeRDzeXR2CLtC4xQ2To7Km8lMB 52NNhhsQArrnvN8g= X-KPN-MID: 33|NxKr/5TUQQ8MPHNZW45/m1SxYuYpnOMEXLNt8iMw+z1sqpkoebKlkmN4Ir2AnUa kUlAatXCgyxXNYwMy+yHwW6onNVRhn9MX6QYhXl83t9k= X-KPN-VerifiedSender: No X-CMASSUN: 33|JsIVX/c6cw3lcWINaqTiw5IBR0tqVNcWkwp9dMBtfprf1Gu95+hBEyS2jRODNUc kdxLvWCpE10UmYHXBdPR3Nw== X-Originating-IP: 84.84.55.189 Received: from fedora.fritz.box (84-84-55-189.fixed.kpn.net [84.84.55.189]) by smtp.xs4all.nl (Halon) with ESMTPSA id c0a307e5-4c7a-11f0-9c5f-005056ab7447; Wed, 18 Jun 2025 21:30:55 +0200 (CEST) From: Paul Bolle Date: Wed, 18 Jun 2025 21:30:23 +0200 Message-ID: <20250618193038.36134-1-pebolle@tiscali.nl> X-Mailer: git-send-email 2.49.0 MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: quoted-printable Received-SPF: pass client-ip=195.121.94.167; envelope-from=pebolle@tiscali.nl; helo=ewsoutbound.kpnmail.nl X-Spam_score_int: -27 X-Spam_score: -2.8 X-Spam_bar: -- X-Spam_report: (-2.8 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, FREEMAIL_FROM=0.001, RCVD_IN_DNSWL_LOW=-0.7, RCVD_IN_VALIDITY_CERTIFIED_BLOCKED=0.001, RCVD_IN_VALIDITY_RPBL_BLOCKED=0.001, SPF_HELO_PASS=-0.001, SPF_PASS=-0.001 autolearn=ham autolearn_force=no X-Spam_action: no action X-Spam-Score: 0.7 (/) X-Mailman-Approved-At: Wed, 18 Jun 2025 17:41:25 -0400 X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -0.3 (/) Trying to compile bf to scheme fails with an impressive backtrace: "In ice-9/boot-9.scm: 1752:10 13 (with-exception-handler _ _ #:unwind? _ # _) In unknown file: 12 (apply-smob/0 #) In ice-9/boot-9.scm: 724:2 11 (call-with-prompt _ _ #) In ice-9/eval.scm: 619:8 10 (_ #(#(#))) In ice-9/boot-9.scm: 2836:4 9 (save-module-excursion _) 4388:12 8 (_) In /home/[...]/bf2scheme.scm: 2:15 7 (_) In system/base/compile.scm: 307:16 6 (read-and-compile # #:from _ =E2= =80=A6) 278:13 5 (lp _) 278:13 4 (lp _) 278:13 3 (lp _) 278:13 2 (lp _) 275:6 1 (lp _) 244:17 0 (next-pass _ _ _ _ _) system/base/compile.scm:244:17: In procedure next-pass: no way to compile #< name: brainfuck title: "Brainfuck" reader: #= pr= inter: # parser: #f compilers: ((tree-il = . #) (scheme . #)) decompilers: () evaluator: #f joiner: #f for-hum= ans?: #t make-default-environment: # l= owerer: #f analyzer: #f compiler-chooser: #> "to" #< name: scheme title: "Sch= eme" reader: # printer: # parser: #f compilers:= ((tree-il . #)) decompilers: ((tree-= il . #)) evaluator: # joiner: #f for-hu= mans?: #t make-default-environment: # lowerer: #f analyzer: #f compiler-chooser: #f>" It turns out the compiler for bf is hardwired to compile-tree-il. Make it possible to choose compile-scheme too. --- module/language/brainfuck/spec.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/module/language/brainfuck/spec.scm b/module/language/brainfuck= /spec.scm index ca488b916..5827c95f4 100644 --- a/module/language/brainfuck/spec.scm +++ b/module/language/brainfuck/spec.scm @@ -35,7 +35,9 @@ ; language. =20 (define (choose-compiler compilers optimization-level opts) - (cons 'tree-il compile-tree-il)) + (if (eq? (language-name compilers) 'scheme) + (cons 'scheme compile-scheme) + (cons 'tree-il compile-tree-il))) =20 (define-language brainfuck #:title "Brainfuck" --=20 2.49.0