summaryrefslogtreecommitdiff
path: root/gnu/packages/guile-xyz.scm
diff options
context:
space:
mode:
Diffstat (limited to 'gnu/packages/guile-xyz.scm')
-rw-r--r--gnu/packages/guile-xyz.scm36
1 files changed, 32 insertions, 4 deletions
diff --git a/gnu/packages/guile-xyz.scm b/gnu/packages/guile-xyz.scm
index 9ef4634e55..5c0b6d3d40 100644
--- a/gnu/packages/guile-xyz.scm
+++ b/gnu/packages/guile-xyz.scm
@@ -1063,7 +1063,7 @@ tables.")
(replace "guile-lib" guile2.2-lib)
(replace "guile-smc" guile2.2-smc)))))
-(define-public guile-fibers
+(define-public guile-fibers-1.3
(package
(name "guile-fibers")
(version "1.3.1")
@@ -1141,7 +1141,35 @@ is not available for Guile 2.0.")
(properties '((upstream-name . "fibers")))
(license license:lgpl3+)))
-(define-public guile-fibers-1.3 guile-fibers)
+(define-public guile-fibers-1.4
+ (package
+ (inherit guile-fibers-1.3)
+ (name "guile-fibers")
+ (version "1.4.0")
+ (source
+ (origin (inherit (package-source guile-fibers-1.3))
+ (file-name (git-file-name name version))
+ (uri (git-reference
+ (url (package-home-page guile-fibers-1.3))
+ (commit (string-append "v" version))))
+ (sha256
+ (base32
+ "1ryp04w6ghgdfhlv9hkwl00iv6nwnw2hj2pywlxvpp92pyxhkwpi"))
+ (patches '())))
+ (arguments
+ (list #:phases
+ #~(modify-phases %standard-phases
+ (add-after 'configure 'fix-cross-compilation
+ (lambda _
+ ;; Fix cross-compilation by removing use of ./env in the
+ ;; .scm.go target; see
+ ;; <https://codeberg.org/fibers/fibers/pulls/132>. Remove
+ ;; when 1.4.1 is out.
+ (substitute* "Makefile"
+ (("\\$\\(top_builddir\\)/env")
+ "")))))))))
+
+(define-public guile-fibers guile-fibers-1.4)
(define-public guile-fibers-1.1
(package
@@ -7738,14 +7766,14 @@ application to open a given file or URL based on given configurations.")
(define-public guile-goblins
(package
(name "guile-goblins")
- (version "0.16.0")
+ (version "0.16.1")
(source
(origin
(method url-fetch)
(uri (string-append "https://files.spritely.institute/releases"
"/guile-goblins/guile-goblins-" version ".tar.gz"))
(sha256
- (base32 "0w3lxhj95vcp6w38z5ygpjf5lw8j523j2znkmg22p1jyqx7kl7c8"))))
+ (base32 "10ffdr98nck05pnsq5qagp7wpyky5wdk83n3qrnh9aphm9qq5frh"))))
(build-system gnu-build-system)
(arguments
(list