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

10 files changed, 10 insertions, 10 deletions

diff --git a/guix/gnupg.scm b/guix/gnupg.scm
index 042c43be710..3c6d1f878a0 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 5c6706a9139..636990ab067 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 ac4c0d86338..bc5dfd18479 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 4f95ae6e303..44e4053334d 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 34bcc9f7072..b423b815a2c 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 bf346a1bef0..2a2a7b9d7c5 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 1226275d560..6e23de4a009 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 beb889f933f..9168ae14d71 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 5de5fc9e000..464fa372cd9 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 c453383c2b0..86d7e16f38d 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 '(#\@ #\{ #\}))