From 970c10d17783681bf5429fb89bcb191f5f603e4e Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Fri, 19 Aug 2016 23:20:31 -0400 Subject: [PATCH] No need to repeat member/assoc here --- srfi/1.scm | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/srfi/1.scm b/srfi/1.scm index 36a10548..bbcf5a01 100644 --- a/srfi/1.scm +++ b/srfi/1.scm @@ -1222,10 +1222,10 @@ (filter! (lambda (y) (not (= x y))) lis))) ;;; Extended from R4RS to take an optional comparison argument. -(define (member x lis . maybe-=) - (let ((= (:optional maybe-= equal?))) - (find-tail (lambda (y) (= x y)) lis))) - +;;(define (member x lis . maybe-=) +;; (let ((= (:optional maybe-= equal?))) +;; (find-tail (lambda (y) (= x y)) lis))) +;; ;;; R4RS, hence we don't bother to define. ;;; The MEMBER and then FIND-TAIL call should definitely ;;; be inlined for MEMQ & MEMV. @@ -1267,9 +1267,9 @@ ;;;;;;;;;;;;;;; ;;; Extended from R4RS to take an optional comparison argument. -(define (assoc x lis . maybe-=) - (let ((= (:optional maybe-= equal?))) - (find (lambda (entry) (= x (car entry))) lis))) +;;(define (assoc x lis . maybe-=) +;; (let ((= (:optional maybe-= equal?))) +;; (find (lambda (entry) (= x (car entry))) lis))) (define (alist-cons key datum alist) (cons (cons key datum) alist))