guix_mirror_bot pushed a commit to branch version-1.5.0 in repository guix.
commit c68f2816c90c3919b5159c277ee0d0ddb2e29026 Author: Efraim Flashner <[email protected]> AuthorDate: Thu Jan 8 16:49:07 2026 +0200 guix: Spelling corrections. * guix/gnupg.scm, guix/import/composer.scm, guix/import/cpan.scm, guix/import/crate/cargo-lock.scm, guix/import/hackage.scm, guix/import/json.scm, guix/licenses.scm, guix/packages.scm, guix/scripts/import.scm, guix/ui.scm: Fix misspellings in comments and doc strings. Change-Id: I8e922f8e980214e345a42a995788a7c4adb9184d --- guix/gnupg.scm | 2 +- guix/import/composer.scm | 2 +- guix/import/cpan.scm | 2 +- guix/import/crate/cargo-lock.scm | 2 +- guix/import/hackage.scm | 2 +- guix/import/json.scm | 2 +- guix/licenses.scm | 2 +- guix/packages.scm | 2 +- guix/scripts/import.scm | 2 +- guix/ui.scm | 2 +- 10 files changed, 10 insertions(+), 10 deletions(-) diff --git a/guix/gnupg.scm b/guix/gnupg.scm index 042c43be71..3c6d1f878a 100644 --- a/guix/gnupg.scm +++ b/guix/gnupg.scm @@ -78,7 +78,7 @@ (define revkeysig-rx ; good signature, but revoked key (make-regexp "^\\[GNUPG:\\] REVKEYSIG ([[:xdigit:]]+) (.*)$")) (define errsig-rx - ;; Note: The fingeprint part (the last element of the line) appeared in + ;; Note: The fingerprint part (the last element of the line) appeared in ;; GnuPG 2.2.7 according to 'doc/DETAILS', and it may be missing. (make-regexp "^\\[GNUPG:\\] ERRSIG ([[:xdigit:]]+) ([^ ]+) ([^ ]+) ([^ ]+) ([[:digit:]]+) ([[:digit:]]+)(.*)")) diff --git a/guix/import/composer.scm b/guix/import/composer.scm index 5c6706a913..636990ab06 100644 --- a/guix/import/composer.scm +++ b/guix/import/composer.scm @@ -97,7 +97,7 @@ (define* (composer-fetch name #:key version partial-version?) "Return a composer-package representation of the Composer metadata for the -package NAME with optional VERSION, or #f on failure. VERSION may be gien as +package NAME with optional VERSION, or #f on failure. VERSION may be given as version prefix if PARTIAL-VERSION? is #t." (and-let* ((url (string-append (%composer-base-url) "/p/" name ".json")) (packages (and=> (json-fetch url) diff --git a/guix/import/cpan.scm b/guix/import/cpan.scm index ac4c0d8633..bc5dfd1847 100644 --- a/guix/import/cpan.scm +++ b/guix/import/cpan.scm @@ -102,7 +102,7 @@ (define string->license (match-lambda ;; List of valid values from https://metacpan.org/pod/CPAN::Meta::Spec. - ;; Some licenses are excluded based on their absense from (guix licenses). + ;; Some licenses are excluded based on their absence from (guix licenses). ("agpl_3" 'agpl3) ;; apache_1_1 ("apache_2_0" 'asl2.0) diff --git a/guix/import/crate/cargo-lock.scm b/guix/import/crate/cargo-lock.scm index 4f95ae6e30..44e4053334 100644 --- a/guix/import/crate/cargo-lock.scm +++ b/guix/import/crate/cargo-lock.scm @@ -35,7 +35,7 @@ (define (cargo-lock-string->scm str) (peg:tree (search-for-pattern cargo-lock str))) -;; Auxiliar peg patterns +;; Auxiliary peg patterns (define-peg-pattern numeric-char body (range #\0 #\9)) diff --git a/guix/import/hackage.scm b/guix/import/hackage.scm index 34bcc9f707..b423b815a2 100644 --- a/guix/import/hackage.scm +++ b/guix/import/hackage.scm @@ -222,7 +222,7 @@ object." (define (filter-dependencies dependencies own-names) "Filter the dependencies included with the GHC compiler from DEPENDENCIES, a list with the names of dependencies. OWN-NAMES is the name of the Cabal -package being processed and its internal libaries and is used to filter +package being processed and its internal libraries and is used to filter references to itself." (let ((ignored-dependencies (map string-downcase (append own-names ghc-standard-libraries)))) diff --git a/guix/import/json.scm b/guix/import/json.scm index bf346a1bef..2a2a7b9d7c 100644 --- a/guix/import/json.scm +++ b/guix/import/json.scm @@ -57,7 +57,7 @@ enable caching, supply 'http-fetch/cached'." result))) (define (json->code file-name) - "Read FILE-NAME containing one ore more JSON package definitions and return + "Read FILE-NAME containing one or more JSON package definitions and return a list of S-expressions, or return #F when the JSON is invalid." (catch 'json-invalid (lambda () diff --git a/guix/licenses.scm b/guix/licenses.scm index 1226275d56..6e23de4a00 100644 --- a/guix/licenses.scm +++ b/guix/licenses.scm @@ -307,7 +307,7 @@ at URI, which may be a file:// URI pointing the package's tree." "https://www.gnu.org/licenses/license-list#CDDL";)) ;; CDDL1.1 is the same as 1.0, except that "Sun Microsystems, Inc" becomes "Oracle", -;; "LOST PROFITS" becoms "LOSS OF GOODWILL" and a section is added between 6.2 +;; "LOST PROFITS" becomes "LOSS OF GOODWILL" and a section is added between 6.2 ;; and 6.3. (define cddl1.1 (license "CDDL 1.1" diff --git a/guix/packages.scm b/guix/packages.scm index beb889f933..9168ae14d7 100644 --- a/guix/packages.scm +++ b/guix/packages.scm @@ -243,7 +243,7 @@ representation." (define-compile-time-decoder base32 nix-base32-string->bytevector) (define-compile-time-decoder base64 base64-decode) -;; Crytographic content hash. +;; Cryptographic content hash. (define-immutable-record-type <content-hash> (%content-hash algorithm value) content-hash? diff --git a/guix/scripts/import.scm b/guix/scripts/import.scm index 5de5fc9e00..464fa372cd 100644 --- a/guix/scripts/import.scm +++ b/guix/scripts/import.scm @@ -122,7 +122,7 @@ PROC callback." (define (process-args args) (match args - ;; Workaround to accpet ‘--insert=FILE’, for the consistency of + ;; Workaround to accept ‘--insert=FILE’, for the consistency of ;; command-line interface. ((arg . rest) (if (string-prefix? "--insert=" arg) diff --git a/guix/ui.scm b/guix/ui.scm index c453383c2b..86d7e16f38 100644 --- a/guix/ui.scm +++ b/guix/ui.scm @@ -319,7 +319,7 @@ VARIABLE and return it, or #f if none was found." (define %hint-color (color BOLD CYAN)) (define (texinfo-quote str) - "Quote at signs and braces in STR to obtain its Texinfo represention." + "Quote at signs and braces in STR to obtain its Texinfo representation." (list->string (string-fold-right (lambda (chr result) (if (memq chr '(#\@ #\{ #\}))
