Re: Adding %conf-dir breaks module

["jgart" <jgart@dismail.de>]

(define-module (confetti features common-lisp)
  #:use-module (rde features)
  #:use-module (rde features emacs)
  #:use-module (rde features predicates)
  #:use-module (confetti srfi srfi-197)
  #:use-module (guixrus packages guix)
  #:use-module (guixrus packages common lisp)
  #:use-module (gnu home services)
  #:use-module (gnu packages emacs-xyz)
  #:use-module (gnu packages lisp)
  #:use-module (gnu packages lisp-xyz)
  #:use-module (gnu services)
  #:use-module (guix gexp)
  #:use-module (guix packages)
  #:export (feature-common-lisp))

;; This is OK.
(define x 3)

;; But this is not OK. How come?
(define %conf-dir
  (dirname (current-filename)))

;; (define (path-join . args)
;;   (string-join args "/"))

;; (define (config-file file)
;;   (local-file (path-join %conf-dir file)))

(define* (feature-common-lisp
          #:key
          (lisp-implementation sbcl)
          (init-file "lisp/sbclrc.lisp"))
  "Configure Common Lisp support."
  (ensure-pred file-like? lisp-implementation)

  ;; TODO: Use path like or whatnot.
  (ensure-pred string? init-file)

  (feature
   (name 'common-lisp)
   (home-services-getter
    (lambda (config)
      (list
       (simple-service 'add-guixrus-home-packages home-profile-service-type
                       (list sbcl-cl-guix-utils guixrus-scripts sbcl-slynk sbcl))
       (simple-service 'add-rus-shell-home-envs home-environment-variables-service-type
                       '(("GUIX_EXTENSIONS_PATH" . "$HOME/.guix-home/profile/share/guix/extensions")))
         (simple-service 'add-sbclrc-home-file home-files-service-type
                       (list `(".sbclrc" ,(local-file init-file)))))))))