diff options
| author | Tobias Geerinckx-Rice <me@tobias.gr> | 2018-01-25 03:53:42 +0100 |
|---|---|---|
| committer | Tobias Geerinckx-Rice <me@tobias.gr> | 2018-01-26 00:09:19 +0100 |
| commit | 980bcecdab738304d171829e27b0a7521bdc2213 (patch) | |
| tree | b753f4c780f164765451be5e9219d911f091297e | |
| parent | 33ecc7a4d1144db1acc331bf16819d5cfe990cc9 (diff) | |
build-system/dub: Fix typo.
* guix/build/dub-build-system.scm (grep, grep*): Correct ‘occurence’.
| -rw-r--r-- | guix/build/dub-build-system.scm | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/guix/build/dub-build-system.scm b/guix/build/dub-build-system.scm index 432d51f6a7..ed86635708 100644 --- a/guix/build/dub-build-system.scm +++ b/guix/build/dub-build-system.scm @@ -1,6 +1,7 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2016 David Craven <david@craven.ch> ;;; Copyright © 2017 Danny Milosavljevic <dannym@scratchpost.org> +;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr> ;;; ;;; This file is part of GNU Guix. ;;; @@ -69,14 +70,14 @@ (zero? (system* "dub" "add-path" vendor-dir)))) (define (grep string file-name) - "Find the first occurence of STRING in the file named FILE-NAME. - Return the position of this occurence, or #f if none was found." + "Find the first occurrence of STRING in the file named FILE-NAME. + Return the position of this occurrence, or #f if none was found." (string-contains (call-with-input-file file-name get-string-all) string)) (define (grep* string file-name) - "Find the first occurence of STRING in the file named FILE-NAME. - Return the position of this occurence, or #f if none was found. + "Find the first occurrence of STRING in the file named FILE-NAME. + Return the position of this occurrence, or #f if none was found. If the file named FILE-NAME doesn't exist, return #f." (catch 'system-error (lambda () |