From a9b38775e51d61caa1a585ce31f1a9b62308afb1 Mon Sep 17 00:00:00 2001 From: Arun Isaac Date: Mon, 30 Jan 2023 00:34:21 +0000 Subject: 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. --- guix/forge/socket.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'guix/forge/socket.scm') 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 +;;; Copyright © 2022, 2023 Arun Isaac ;;; ;;; 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 make-forge-unix-socket -- cgit v1.2.3