(define-module (xyz euandreh posix)
  #:use-module (guix packages)
  #:use-module (guix utils)
  #:use-module (gnu packages c))

(define-public tcc-c99
  (package
    (inherit tcc)
    (name "posix-c99")
    (arguments
     `(,@(ensure-keyword-arguments
          (package-arguments tcc)
          `(#:parallel-build? #f
            #:parallel-tests? #f
            #:phases
            (modify-phases %standard-phases
              (add-after 'install 'ln-alias
                (lambda* (#:key outputs #:allow-other-keys)
                  (let ((out (assoc-ref outputs "out")))
                    (symlink (string-append out "/bin/tcc")
                             (string-append out "/bin/c99"))))))))))))

(list
 tcc-c99)