(use-modules
 (gnu packages)
 (gnu packages autotools)
 (gnu packages guile)
 (gnu packages guile-xyz)
 (gnu packages pkg-config)
 (gnu packages texinfo)
 (guix build-system gnu)
 (guix download)
 (guix gexp)
 ((guix licenses) #:prefix license:)
 (guix packages)
 (srfi srfi-1))

(package
  (name "guile-prescheme")
  (version "0.1-pre")
  (source
   (local-file
    (dirname (current-filename))
    #:recursive?
    #t
    #:select?
    (lambda (file stat)
      (not (any (lambda (my-string)
                  (string-contains file my-string))
                (list ".git" ".dir-locals.el" "guix.scm"))))))
  (build-system gnu-build-system)
  (arguments
   (list #:phases #~(modify-phases %standard-phases
                      (add-before 'configure 'hall-generate
                        (lambda _
                          (invoke (string-append #$guile-hall "/bin/hall") "build" "-x"))))))
  (native-inputs
   (list autoconf automake pkg-config texinfo))
  (inputs (list guile-3.0))
  (propagated-inputs (list))
  (synopsis
   "Guile port of Pre-Scheme, a Scheme-like systems language")
  (description
   "guile-prescheme is a port of the Pre-Scheme compiler from Scheme 48.  Pre-Scheme is a statically typed dialect of Scheme which offers the efficiency and low-level machine access of C while retaining many of the desirable features of Scheme.")
  (home-page
   "https://notabug.org/flatwhatson/guile-prescheme")
  (license license:bsd-3))