diff options
| author | Marius Bakke <mbakke@fastmail.com> | 2018-02-20 17:36:56 +0100 |
|---|---|---|
| committer | Marius Bakke <mbakke@fastmail.com> | 2018-02-20 17:36:56 +0100 |
| commit | 7f69459aca16756f35f08049c64a1bd77d23f33e (patch) | |
| tree | 1d267fb62feab89de5d97582672540cbaa37392c /guix/build/dub-build-system.scm | |
| parent | 4a82722a658220ec1e10f9f2d5d77407d38db90e (diff) | |
| parent | b1989c12501e880afab62d3ff961791906fef350 (diff) | |
Merge branch 'master' into staging
Diffstat (limited to 'guix/build/dub-build-system.scm')
| -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 () |