~ chicken-core (chicken-5) 5b79f72624d71d5aff0ec0ffb9f61320452006d4

commit 5b79f72624d71d5aff0ec0ffb9f61320452006d4
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sat May 12 16:56:21 2012 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sat May 12 16:56:21 2012 +0200

    just some indentation fix

diff --git a/eval.scm b/eval.scm
index 52e19f26..863e0c43 100644
--- a/eval.scm
+++ b/eval.scm
@@ -1164,15 +1164,15 @@
 			  (file-exists? (##sys#string-append p0 ##sys#load-dynamic-extension)))
 		     (file-exists? (##sys#string-append p0 source-file-extension)) )
 		 p0) ) )
-	  (let loop ((paths (##sys#append
-			     (if ##sys#setup-mode '(".") '())
-			     (if rp (list rp) '())
-			     (if inc? ##sys#include-pathnames '())
-			     (if ##sys#setup-mode '() '("."))) ))
-	    (and (pair? paths)
-		 (let ((pa (##sys#slot paths 0)))
-		   (or (check pa)
-		       (loop (##sys#slot paths 1)) ) ) ) ) ) ) ))
+	(let loop ((paths (##sys#append
+			   (if ##sys#setup-mode '(".") '())
+			   (if rp (list rp) '())
+			   (if inc? ##sys#include-pathnames '())
+			   (if ##sys#setup-mode '() '("."))) ))
+	  (and (pair? paths)
+	       (let ((pa (##sys#slot paths 0)))
+		 (or (check pa)
+		     (loop (##sys#slot paths 1)) ) ) ) ) ) ) ))
 
 (define ##sys#loaded-extensions '())