diff options
| author | Arun Isaac | 2023-01-30 00:34:21 +0000 |
|---|---|---|
| committer | Arun Isaac | 2023-01-30 00:34:21 +0000 |
| commit | a9b38775e51d61caa1a585ce31f1a9b62308afb1 (patch) | |
| tree | 2f71c59d7a96fe6c51cad9642b1cec2c2b7a1f09 | |
| parent | e72a05da251cb485c891142e6e6710bc98a8dd08 (diff) | |
| download | guix-forge-a9b38775e51d61caa1a585ce31f1a9b62308afb1.tar.gz guix-forge-a9b38775e51d61caa1a585ce31f1a9b62308afb1.tar.lz guix-forge-a9b38775e51d61caa1a585ce31f1a9b62308afb1.zip | |
socket: Replace string-contains? with string-contains.
There is no string-contains? function. Ironically string-contains? is
indeed the better name since it is a predicate.
* guix/forge/socket.scm (ipv4-address?, ipv6-address?): Replace
string-contains? with string-contains.
| -rw-r--r-- | guix/forge/socket.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/guix/forge/socket.scm b/guix/forge/socket.scm index 4098112..6d2c539 100644 --- a/guix/forge/socket.scm +++ b/guix/forge/socket.scm @@ -1,5 +1,5 @@ ;;; guix-forge --- Guix software forge meta-service -;;; Copyright © 2022 Arun Isaac <arunisaac@systemreboot.net> +;;; Copyright © 2022, 2023 Arun Isaac <arunisaac@systemreboot.net> ;;; ;;; This file is part of guix-forge. ;;; @@ -40,11 +40,11 @@ (define (ipv4-address? address) "Return #t if ADDRESS is an IPv4 address. Else, return #f." - (string-contains? address ".")) + (string-contains address ".")) (define (ipv6-address? address) "Return #t if ADDRESS is an IPv6 address. Else, return #f." - (string-contains? address ":")) + (string-contains address ":")) (define-record-type* <forge-unix-socket> forge-unix-socket make-forge-unix-socket |