diff options
| author | Tobias Geerinckx-Rice <me@tobias.gr> | 2019-02-10 15:54:53 +0100 |
|---|---|---|
| committer | Tobias Geerinckx-Rice <me@tobias.gr> | 2019-02-18 01:52:47 +0100 |
| commit | b83e4a93a2118513cdd2186d796729f0813264c0 (patch) | |
| tree | c3fca23ec93584d6c990e843ef7a6c6a6dc9f25f /gnu/installer/timezone.scm | |
| parent | a9e9c738dcdeff1fbbf6f365f47c44983e63bb9d (diff) | |
| download | guix-patches-b83e4a93a2118513cdd2186d796729f0813264c0.tar guix-patches-b83e4a93a2118513cdd2186d796729f0813264c0.tar.gz | |
gnu: Fix some typos in the installer.
* gnu/installer/connman.scm (connman-connect-with-auth): Fix typo in
documentation.
* gnu/installer/newt/keymap.scm (sort-variants): Likewise.
* gnu/installer/newt/page.scm (run-listbox-selection-page): Likewise.
* gnu/installer/parted.scm (mkpart): Likewise.
* gnu/installer/newt/utils.scm (destroy-form-and-pop): Likewise.
* gnu/installer/newt/wifi.scm (run-unknown-error-page): Fix typo.
(wifi-listbox-heigth): Rename to…
(wifi-listbox-height): …this, and adjust caller.
* gnu/installer/timezone.scm (locate-childrens): Rename to…
(locate-children): …this. Adjust all callers.
Diffstat (limited to 'gnu/installer/timezone.scm')
| -rw-r--r-- | gnu/installer/timezone.scm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gnu/installer/timezone.scm b/gnu/installer/timezone.scm index 32bc2ed6bb..c336b5f3ba 100644 --- a/gnu/installer/timezone.scm +++ b/gnu/installer/timezone.scm @@ -25,7 +25,7 @@ #:use-module (srfi srfi-35) #:use-module (ice-9 match) #:use-module (ice-9 receive) - #:export (locate-childrens + #:export (locate-children timezone->posix-tz timezone-has-child? zonetab->timezone-tree @@ -94,15 +94,15 @@ timezones." (loop (remove-first same-region)) (loop other-region)))))))) -(define (locate-childrens tree path) - "Return the childrens of the timezone indicated by PATH in the given +(define (locate-children tree path) + "Return the children of the timezone indicated by PATH in the given TREE. Raise a condition if the PATH could not be found." (let ((extract-proc (cut map car <>))) (match path (() (sort (extract-proc tree) string<?)) ((region . rest) (or (and=> (assoc-ref tree region) - (cut locate-childrens <> rest)) + (cut locate-children <> rest)) (raise (condition (&message @@ -111,7 +111,7 @@ TREE. Raise a condition if the PATH could not be found." (define (timezone-has-child? tree timezone) "Return #t if the given TIMEZONE any child in TREE and #f otherwise." - (not (null? (locate-childrens tree timezone)))) + (not (null? (locate-children tree timezone)))) (define* (zonetab->timezone-tree zonetab) "Return the timezone tree corresponding to the given ZONETAB file." |