summaryrefslogtreecommitdiff
path: root/gnu/installer/timezone.scm
diff options
context:
space:
mode:
authorTobias Geerinckx-Rice <me@tobias.gr>2019-02-10 15:54:53 +0100
committerTobias Geerinckx-Rice <me@tobias.gr>2019-02-18 01:52:47 +0100
commitb83e4a93a2118513cdd2186d796729f0813264c0 (patch)
treec3fca23ec93584d6c990e843ef7a6c6a6dc9f25f /gnu/installer/timezone.scm
parenta9e9c738dcdeff1fbbf6f365f47c44983e63bb9d (diff)
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.scm10
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."