lloda pushed a commit to branch main
in repository guile.
commit e84e7ce8b294aeb5590910adef272255aabef627
Author: Jessica Tallon <[email protected]>
AuthorDate: Tue Sep 2 16:37:06 2025 +0200
srfi-43: Import vector-copy using define-module instead of @
Previously vector-copy was being imported and prefixed using the @ trick
to snarf it. This isn't great practice and doesn't allow it to be used
with Hoot. This changes it to be imported with define-module using
select and prefix.
* module/srfi/srfi-43.scm: Import vector-copy using define-module
---
module/srfi/srfi-43.scm | 3 +--
1 file changed, 1 insertion(+), 2 deletions(-)
diff --git a/module/srfi/srfi-43.scm b/module/srfi/srfi-43.scm
index 4c94036e3..0631b34b4 100644
--- a/module/srfi/srfi-43.scm
+++ b/module/srfi/srfi-43.scm
@@ -19,6 +19,7 @@
;;; Author: Mark H Weaver <[email protected]>
(define-module (srfi srfi-43)
+ #:use-module ((guile) #:select ((vector-copy . guile-vector-copy)))
#:use-module (srfi srfi-1)
#:use-module (srfi srfi-8)
#:re-export (make-vector vector vector? vector-ref vector-set!
@@ -202,8 +203,6 @@ error for the number of seeds to vary between iterations."
(loop (- i 1) seeds))))
v))))
-(define guile-vector-copy (@ (guile) vector-copy))
-
(define vector-copy
(case-lambda*
"(vector-copy vec [start [end [fill]]]) -> vector
