guix: Fix some misspellings.

Change-Id: Ia036217dadc1624c5f0d59fd44f646d46315c1f3

guix/build/git.scm

@@ -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")

guix/import/cabal.scm

@@ -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 <>)

guix/import/crate.scm

@@ -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))

guix/import/elpa.scm

@@ -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)))

guix/import/gnome.scm

@@ -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))

guix/import/go.scm

@@ -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)

guix/import/hexpm.scm

@@ -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))

guix/packages.scm

@@ -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.

guix/scripts/system/installer.scm

@@ -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_ "

guix/utils.scm

@@ -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