Does not compile with Guile 2.2.3 about faster-minikanren HOT 6 CLOSED

[21:02:20]:[~/development/Guile/libs/faster-miniKanren]: guile test-guile.scm 
;;; note: auto-compilation is enabled, set GUILE_AUTO_COMPILE=0
;;;       or pass the --no-auto-compile argument to disable.
;;; compiling /home/user/development/Guile/libs/faster-miniKanren/test-guile.scm
;;; WARNING: compilation of /home/user/development/Guile/libs/faster-miniKanren/test-guile.scm failed:
;;; no code for module (faster-miniKanren mk-guile)
Backtrace:
           9 (primitive-load "/home/user/development/Guile/libs/faster-miniKanren/test-guile.scm")
In ice-9/eval.scm:
   721:20  8 (primitive-eval (use-modules (faster-miniKanren mk-guile)))
In ice-9/psyntax.scm:
  1235:36  7 (expand-top-sequence ((use-modules (faster-miniKanren mk-guile))) _ _ #f e (eval) (# #))
  1182:24  6 (parse _ (("placeholder" placeholder)) ((top) #(ribcage () () ())) _ e (eval) (hygiene #))
   285:10  5 (parse _ (("placeholder" placeholder)) (()) _ c&e (eval) (hygiene guile-user))
In ice-9/boot-9.scm:
  3365:20  4 (process-use-modules _)
   222:17  3 (map1 (((faster-miniKanren mk-guile))))
  3366:31  2 (_ ((faster-miniKanren mk-guile)))
   2791:6  1 (resolve-interface _ #:select _ #:hide _ #:prefix _ #:renamer _ #:version _)
In unknown file:
           0 (scm-error misc-error #f "~A ~S" ("no code for module" (faster-miniKanren mk-guile)) #f)

ERROR: In procedure scm-error:
no code for module (faster-miniKanren mk-guile)

(define-module (faster-miniKanren mk-guile)
  #:export (run run*
            == =/=
            fresh
            conde
            symbolo numbero
            absento
            matche))

(import (rnrs (6)))
(import (rnrs records syntactic (6)))

(define sub1 1-)
(define add1 1+)

(define fx= fx=?)
(define fxsla fxarithmetic-shift-left)
(define fxsra fxarithmetic-shift-right)
(define fxsll bitwise-arithmetic-shift-left)

(include-from-path "faster-miniKanren/mk-vicare.scm")
(include-from-path "faster-miniKanren/mk.scm")

(define (andmap proc . args)
  (let ((l (length (car args))))
    (when (pair? (filter (lambda (x) (not (= l (length x)))) args))
      (error 'andmap "Lists of unequal length" args)))
  (let rec
    ((result '())
     (args args))
    (if (equal? (car args) '())
      (reverse result)
      (let ((val (apply proc (map car args))))
        (if (not val)
          (reverse result)
          (rec (cons val result)
               (map cdr args)))))))

(define generate-temporary gensym)

(include-from-path "faster-miniKanren/matche.scm")

$ echo $GUILE_LOAD_PATH
/home/user/development/Guile/libs