From 1f3eb50b4f4760ce8690742a7ba9d05dfa9f122d Mon Sep 17 00:00:00 2001
From: TakeV <takev@disroot.org>
Date: Wed, 8 May 2024 18:45:50 -0400
Subject: [PATCH] Ignore prescheme compiler files, as they do not build

---
 hall.scm | 47 +----------------------------------------------
 1 file changed, 1 insertion(+), 46 deletions(-)

diff --git a/hall.scm b/hall.scm
index 37bfeca..8dcb67e 100644
--- a/hall.scm
+++ b/hall.scm
@@ -13,7 +13,7 @@
     "https://notabug.org/flatwhatson/guile-prescheme")
   (license bsd-3)
   (dependencies `())
-  (skip (".envrc" "TODO.org"))
+  (skip (".envrc" "TODO.org" "ps-compiler/prescheme"))
   (features
     ((guix #f)
      (use-guix-specs-for-dependencies #f)
@@ -39,51 +39,6 @@
                   (scheme-file "dominators")
                   (scheme-file "util")
                   (scheme-file "transitive")))
-               (directory
-                 "prescheme"
-                 ((directory
-                    "primop"
-                    ((scheme-file "c-base")
-                     (scheme-file "scm-memory")
-                     (scheme-file "c-primop")
-                     (scheme-file "c-arith")
-                     (scheme-file "c-vector")
-                     (scheme-file "io")
-                     (scheme-file "scm-record")
-                     (scheme-file "scm-scheme")
-                     (scheme-file "vector")
-                     (scheme-file "arith")
-                     (scheme-file "c-io")
-                     (scheme-file "primop")
-                     (scheme-file "scm-arith")
-                     (scheme-file "base")))
-                  (scheme-file "infer-early")
-                  (scheme-file "flatten")
-                  (scheme-file "eval")
-                  (scheme-file "type-var")
-                  (scheme-file "inference")
-                  (scheme-file "spec")
-                  (scheme-file "linking")
-                  (scheme-file "front-end")
-                  (scheme-file "node-type")
-                  (scheme-file "to-cps")
-                  (scheme-file "form")
-                  (scheme-file "display")
-                  (scheme-file "c-call")
-                  (scheme-file "merge")
-                  (scheme-file "top")
-                  (scheme-file "c-decl")
-                  (scheme-file "c")
-                  (scheme-file "primitive")
-                  (scheme-file "type-scheme")
-                  (scheme-file "record")
-                  (scheme-file "hoist")
-                  (scheme-file "type")
-                  (scheme-file "c-util")
-                  (scheme-file "ps-syntax")
-                  (scheme-file "external-value")
-                  (scheme-file "expand")
-                  (scheme-file "substitute")))
                (directory
                  "simp"
                  ((scheme-file "call")