~ chicken-core (chicken-5) 7cad210a0897318b8101b3742b85b166db0f952f

commit 7cad210a0897318b8101b3742b85b166db0f952f
Author:     Peter Bex <Peter.Bex@xs4all.nl>
AuthorDate: Fri Sep 24 21:30:22 2010 +0200
Commit:     Peter Bex <Peter.Bex@xs4all.nl>
CommitDate: Fri Sep 24 21:30:22 2010 +0200

    Apply upstream changeset 289d4d859e9d (remove tabs)

diff --git a/irregex-core.scm b/irregex-core.scm
index a1be5465..3829327f 100644
--- a/irregex-core.scm
+++ b/irregex-core.scm
@@ -456,11 +456,11 @@
   (let ((res (make-string len)))
     (let lp ((i len) (ls string-list))
       (if (pair? ls)
-	  (let* ((s (car ls))
-		 (slen (string-length s))
-		 (i (- i slen)))
-	    (%%string-copy! res i s 0 slen)
-	    (lp i (cdr ls)))))
+          (let* ((s (car ls))
+                 (slen (string-length s))
+                 (i (- i slen)))
+            (%%string-copy! res i s 0 slen)
+            (lp i (cdr ls)))))
     res))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -486,8 +486,8 @@
 (define (find pred ls)
   (let lp ((ls ls))
     (cond ((null? ls) #f)
-	  ((pred (car ls)) (car ls))
-	  (else (lp (cdr ls))))))
+          ((pred (car ls)) (car ls))
+          (else (lp (cdr ls))))))
 
 (define (find-tail pred ls)
   (let lp ((ls ls))
@@ -3060,12 +3060,12 @@
            (let ((match-once (lp (sre-sequence (cdr sre)) n #t)))
              (lambda (cnk start i end j matches)
                (cond
-		((match-once cnk start i end j matches)
-		 #t)
-		(else
-		 (match-vector-set! matches tmp-end-src-offset start)
-		 (match-vector-set! matches tmp-end-index-offset i)
-		 #t)))))
+                ((match-once cnk start i end j matches)
+                 #t)
+                (else
+                 (match-vector-set! matches tmp-end-src-offset start)
+                 (match-vector-set! matches tmp-end-index-offset i)
+                 #t)))))
           (($ submatch => submatch-named)
            (let ((match-one
                   (lp (sre-sequence (if (memq (car sre) '($ submatch))