guix: Fix some misspellings.

Change-Id: Ia036217dadc1624c5f0d59fd44f646d46315c1f3
This commit is contained in:
Efraim Flashner 2025-02-19 11:12:11 +02:00
parent 66daf46b41
commit e582903481
No known key found for this signature in database
GPG key ID: 41AAE7DCCA3D8351
10 changed files with 13 additions and 13 deletions

View file

@ -133,7 +133,7 @@ SWH."
(when (file-exists?
(string-append directory "/.gitattributes"))
;; Perform CR/LF conversion and other changes
;; specificied by '.gitattributes'.
;; specified by '.gitattributes'.
(invoke git-command "-C" directory "init")
(invoke git-command "-C" directory "config" "--local"
"user.email" "you@example.org")

View file

@ -867,7 +867,7 @@ the ordering operation and the version."
((("import" imports) rest ...)
(eval (append (append-map
;; The imports are (at least sometimes) a list with one string
;; containing all the names separeted by commas. This splits
;; containing all the names separated by commas. This splits
;; those strings to a list of strings in the same format that is
;; used in common-stanzas.
(cut assoc-ref common-stanzas <>)

View file

@ -363,7 +363,7 @@ look up the development dependencs for the given crate."
(crate-versions crate))))))
;; If no non-yanked existing package version was found, check the upstream
;; versions. If a non-yanked upsteam version exists, use it instead,
;; versions. If a non-yanked upstream version exists, use it instead,
;; otherwise use the existing package version, provided it exists.
(define (dependency-name+missing+version+yanked dep)
(let* ((name (crate-dependency-id dep))

View file

@ -123,7 +123,7 @@ defined by ELPA-PKG-SPEC, a package specification as in an archive
(eq? (first elpa-pkg-spec) (string->symbol name)))
(define* (elpa-package-info name #:optional (repo 'gnu))
"Extract the information about the package NAME from the package archieve of
"Extract the information about the package NAME from the package archive of
REPO."
(let* ((archive (elpa-fetch-archive repo))
(pkgs (match archive ((version pkg-spec ...) pkg-spec)))

View file

@ -72,7 +72,7 @@ version."
"Predicate to check if VERSION matches the format of a GNOME release
version. A release version can have more than one form, depending on the
GNOME component, but typically it takes the form of a major-minor tuple, where
minor can also be prefixed wih \"alpha\", \"beta\" or \"rc\". For more
minor can also be prefixed with \"alpha\", \"beta\" or \"rc\". For more
information about the GNOME versioning scheme, see:
https://discourse.gnome.org/t/new-gnome-versioning-scheme/4235"
(define components (string-tokenize version %not-dot))

View file

@ -91,7 +91,7 @@
;;; + or recognizing .vcs suffix
;;; + or parsing meta tag in HTML served at the URL
;;; + or (TODO) if nothing else works by using zip file served by GOPROXY
;;; - get go.mod from GOPROXY (which is able to synthetize one if needed)
;;; - get go.mod from GOPROXY (which is able to synthesize one if needed)
;;; - extract list of dependencies from this go.mod
;;;
;;; The Go module paths are translated to a Guix package name under the
@ -131,7 +131,7 @@ https://godoc.org/golang.org/x/mod/module#hdr-Escaped_Paths)."
(http-fetch* (string-append "https://pkg.go.dev/" name)))
(define* (go-module-version-info goproxy name #:key version)
"Fetch a JSON object encoding about the lastest version for NAME from the given
"Fetch a JSON object encoding about the latest version for NAME from the given
GOPROXY server, or for VERSION when specified."
(let ((file (if version
(string-append "@v/" version ".info")
@ -150,7 +150,7 @@ styles for the same package."
(begin
(warning (G_ "Empty list of versions on proxy ~a for package '~a'. Using latest.~%")
goproxy name)
;; If we haven't recieved any versions, look in the version-info json
;; If we haven't received any versions, look in the version-info json
;; object and return a one-element list if found.
(or (and=> (assoc-ref (go-module-version-info goproxy name) "Version")
list)

View file

@ -95,7 +95,7 @@
(define (lookup-hexpm name)
"Look up NAME on hex.pm and return the corresopnding <hexpm> record
"Look up NAME on hex.pm and return the corresponding <hexpm> record
or #f if it was not found."
(and=> (json-fetch (package-url name))
json->hexpm))
@ -143,7 +143,7 @@ or #f if it was not found."
(define (lookup-hexpm-release version*)
"Look up RELEASE on hexpm-version-url and return the corresopnding
"Look up RELEASE on hexpm-version-url and return the corresponding
<hexpm-release> record or #f if it was not found."
(and=> (json-fetch (hexpm-version-url version*))
json->hexpm-release))

View file

@ -394,7 +394,7 @@ name of its URI."
;; Work around limitations in the 'snippet' mechanism. It is not possible for
;; a 'snippet' to produce a tarball with a different base name than the
;; original downloaded source. Moreover, cherry picking dozens of upsteam
;; original downloaded source. Moreover, cherry picking dozens of upstream
;; patches and applying them suddenly is often impractical; especially when a
;; comprehensive code reformatting is done upstream. Mainly designed for
;; Linux and IceCat packages.

View file

@ -46,7 +46,7 @@
(define (show-help)
(display (G_ "Usage: guix system installer [OPTION]...
Run the system installler.\n"))
Run the system installer.\n"))
(display (G_ "
-n, --dry-run skip network setup, partitioning, and actual install"))
(display (G_ "

View file

@ -1200,7 +1200,7 @@ be determined."
(define (string-distance s1 s2)
"Compute the Levenshtein distance between two strings."
;; Naive implemenation
;; Naive implementation
(define loop
(mlambda (as bt)
(match as