12345678910111213141516171819202122232425262728 |
- ;;; Mudsync --- Live hackable MUD
- ;;; Copyright © 2017 Christine Lemmer-Webber <cwebber@dustycloud.org>
- ;;;
- ;;; This file is part of Mudsync.
- ;;;
- ;;; Mudsync is free software; you can redistribute it and/or modify it
- ;;; under the terms of the GNU General Public License as published by
- ;;; the Free Software Foundation; either version 3 of the License, or
- ;;; (at your option) any later version.
- ;;;
- ;;; Mudsync is distributed in the hope that it will be useful, but
- ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
- ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- ;;; General Public License for more details.
- ;;;
- ;;; You should have received a copy of the GNU General Public License
- ;;; along with Mudsync. If not, see <http://www.gnu.org/licenses/>.
- (define-module (mudsync utils)
- #:use-module (srfi srfi-1)
- #:export (ci-member))
- (define (ci-member x lst)
- "Case insensitive member check"
- (member x lst (lambda (x y)
- (equal? (string-downcase x) (string-downcase y)))))
|