- (alist-replace
- 'configure
- (lambda* (#:key #:allow-other-keys #:rest args)
- (let ((configure (assoc-ref %standard-phases 'configure)))
- (apply configure args)
- (copy-file (which "libtool") "libtool")))
- (alist-replace
- 'check
- (lambda* (#:key #:allow-other-keys #:rest args)
- (let ((check (assoc-ref %standard-phases 'check)))
- (for-each (lambda (f)
- (substitute* (string-append "tests/scripts/" f)
- (("/bin/rm") "rm")))
- '("all" "its-all" "passwd-search" "sql-all" "test027-emptydn"))
- ;; disable especially finicky tests
- (delete-file "tests/scripts/test058-syncrepl-asymmetric")
- (delete-file "tests/scripts/test061-syncreplication-initiation")
- (apply check args)))
- %standard-phases))))
- (synopsis "openldap, an implementation of the Lightweight Directory Access Protocol")
+ (alist-cons-after
+ 'configure 'provide-libtool
+ (lambda _ (copy-file (which "libtool") "libtool"))
+ %standard-phases)))
+ (synopsis "Implementation of the Lightweight Directory Access Protocol")