~ chicken-core (chicken-5) 0330f719e1befff4b994be34e0fb48971f24c0cf

commit 0330f719e1befff4b994be34e0fb48971f24c0cf
Author:     Evan Hanson <evhan@foldling.org>
AuthorDate: Fri Jan 1 18:27:16 2016 +1300
Commit:     Evan Hanson <evhan@foldling.org>
CommitDate: Fri Jan 1 18:27:16 2016 +1300

    Make mini-srfi-1's delete remove all occurences of x

diff --git a/mini-srfi-1.scm b/mini-srfi-1.scm
index 3bf2edb3..e15526ed 100644
--- a/mini-srfi-1.scm
+++ b/mini-srfi-1.scm
@@ -103,8 +103,10 @@
 (define (delete x lst #!optional (test equal?))
   (let loop ((lst lst))
     (cond ((null? lst) lst)
-	  ((test x (car lst)) (cdr lst))
-	  (else (cons (car lst) (loop (cdr lst)))) ) ) )
+	  ((test x (car lst))
+	   (loop (cdr lst)))
+	  (else
+	   (cons (car lst) (loop (cdr lst)))))))
 
 (define (first x) (car x))
 (define (second x) (cadr x))